Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Vb6 RGB (переменные) Добавлено: 07.08.09 10:54  

Автор вопроса:  LEX1ERS | ICQ: 4204936 
Всем доброго дня. У меня вопрос, мне нужно сделать что бы в определении цвета входили и переменные которые меняються... Например RGB (переменная(0), переменная(1), переменная(2)) так вот, на переменные я назначаю текст бокс в котором написанно допустим 255. И тут ошибка в переменых -
dim param(2) as variant
param(0) = text1.Text
param(1) = text2.Text
param(2) = text3.Text

вб6 не хочет воспринимать текст боксы,он ссылает на них ошибку...Ну а в текст боксе идут числа от 0 до 255 и эти текст боксы отвечают за цвет, допустим формы, далее я делаю form1.Backcolor = RGB (переменная(0), переменная(1), переменная(2))
помогите, в чем дело?!

Ответить

  Ответы Всего ответов: 9  

Номер ответа: 1
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #1 		Добавлено: 07.08.09 22:59
  1.  
  2. dim param(2) as integer
  3. param(0) = int(text1.Text )
  4. param(1) = int(text2.Text )
  5. param(2) = int(text3.Text )

Ответить

Номер ответа: 2
Автор ответа:
 LEX1ERS



ICQ: 4204936 

Вопросов: 38
Ответов: 100
  Профиль | Цитата | #2 Добавлено: 07.08.09 23:12
А какую роль играет - int?)

Ответить

Номер ответа: 3
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | Цитата | #3 		Добавлено: 07.08.09 23:16
Преобразование типа

Ответить

Номер ответа: 4
Автор ответа:
 LEX1ERS



ICQ: 4204936 

Вопросов: 38
Ответов: 100
  Профиль | Цитата | #4 Добавлено: 07.08.09 23:33
Ммм...Не катит, вот код
Option Explicit
Dim fff(2) As Integer
fff(0) = Int(Text1.Text)
fff(1) = Int(Text2.Text)
fff(2) = Int(Text3.Text)

Private Sub Form_Load()
Text1.Text = "255"
Text2.Text = "0"
Text3.Text = "0"
Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
End Sub
ошибку выдает invalid outside procedure, и при этом выделает опять текст1...У меня уже мозг горит,че делать?!

Ответить

Номер ответа: 5
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | Цитата | #5 Добавлено: 07.08.09 23:41
Потушить мозг баночкой холодного пива и киношкой что щас на НТВ, а потом спать.
Утро вечера мудреней.

Ответить

Номер ответа: 6
Автор ответа:
 »VladikComper«



ICQ: 419668582 

Вопросов: 23
Ответов: 147
  Web-сайт: vladikcomper.narod.ru
 Профиль | Цитата | #6 		Добавлено: 08.08.09 01:23
О_о
  1. Option Explicit
  2. Dim fff(2) As Integer
  3.  
  4. Private Sub Form_Load()
  5. Text1.Text = "255"
  6. Text2.Text = "0"
  7. Text3.Text = "0"
  8. fff(0) = Int(Text1.Text)
  9. fff(1) = Int(Text2.Text)
  10. fff(2) = Int(Text3.Text)
  11. Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
  12. End Sub

Ответить

Номер ответа: 7
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #7 		Добавлено: 10.08.09 09:54
  1. Option Explicit
  2. Dim fff(2) As Integer
  3. fff(0) = Int(Text1.Text)
  4. fff(1) = Int(Text2.Text)
  5. fff(2) = Int(Text3.Text)
  6.  
  7. Private Sub Form_Load()
  8. Text1.Text = "255"
  9. Text2.Text = "0"
  10. Text3.Text = "0"
  11. Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
  12. End Sub


Бонально. Хотя прикольно. Натолкнуло на идею. Нужно короче в скрипты XQR2 сунуть возможность Bind таким образом :D Наверху так описываешь короче какие переменные к чему привязываются, а потом приравнивания делаются автоматически. Надо попробовать) Типо писать можно будет так:
  1.  
  2. Bind B To XQR.Keyboard.Button.Item(XQR.Keyboard.GetButtonCount()).Width 'Биндим переменную B к ширине последней кнопки
  3. Event XQR.BeforeSettingsShow()
  4. B = XQR.Files.FileText("C:\Width.txt")
  5. End Event

Ответить

Номер ответа: 8
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | Цитата | #8 Добавлено: 11.08.09 14:37
Народ вы жжоте.
А слабо присвоение значений переменным закинуть в процедуру?
НЕ:
  1.  
  2. Option Explicit
  3. Dim fff(2) As Integer
  4. fff(0) = Int(Text1.Text)
  5. fff(1) = Int(Text2.Text)
  6. fff(2) = Int(Text3.Text)
  7.  
  8. Private Sub Form_Load()
  9. Text1.Text = "255"
  10. Text2.Text = "0"
  11. Text3.Text = "0"
  12. Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
  13. End Sub


А:
  1.  
  2. Option Explicit
  3. Dim fff(2) As Integer
  4.  
  5. Private Sub Form_Load()
  6. Text1.Text = "255"
  7. Text2.Text = "0"
  8. Text3.Text = "0"
  9. fff(0) = Int(Text1.Text)
  10. fff(1) = Int(Text2.Text)
  11. fff(2) = Int(Text3.Text)
  12. Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
  13. End Sub

Ответить

Номер ответа: 9
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | Цитата | #9 Добавлено: 11.08.09 14:40
И добавить чтото типа:
  1.  
  2. Private Sub Text1_Change()
  3. fff(0) = Int(Text1.Text)
  4. Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
  5. End Sub
  6. Private Sub Text2_Change()
  7. fff(1) = Int(Text2.Text)
  8. Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
  9. End Sub
  10. Private Sub Text3_Change()
  11. fff(2) = Int(Text3.Text)
  12. Shape1.FillColor = RGB(fff(0), fff(1), fff(2))
  13. End Sub


Чтобы при изменениитекста в текстбоксах изменялся цвет у шапе.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам