Похожие работы на «Индексированные элементы управления »

Индексированные элементы управления
Программирование и комп-ры, Индексированные элементы управления , Лекции ... End If Command1.Caption < Command3.Caption Then End If Command1.Caption < Command4.Caption Then End If Command1.Caption < Command5.Caption Then End If ...
... End If Command2.Caption < Command3.Caption Then End If Command2.Caption < Command4.Caption Then End If Command2.Caption < Command5.Caption Then End If ...


Калькулятор на VB - это легко! [нестрогое соответствие]
Программирование и комп-ры, Калькулятор на VB - это легко! , Рефераты ... числа - добавляем цифру надписи табло Tablo.Caption = Tablo.Caption & Index End If End If End If Tablo.Tag = "" ' возможен (...) ввод дробного числа ...
... операции - то что на табло при выборе операции Ravno.Tag = "второе" ' режим ввода второго числа End Sub Несложно догадаться, что процедура вычисления


Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic [нестрогое соответствие]
Программирование и комп-ры, Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic ... ... Label19.Caption = "" Label20.Caption = "" Label21.Caption = "" Label22.Caption = "" Fotd = 0 Oos = 0 Oobakt = 0 Ozap = 0 Odz = 0 Oba = 0 Oksk = 0 a ...
... N: b = 365 / Int(Oos) Label11.Caption = Int(b) N: If Oobakt = 0 Then GoTo V: c = 365 / Int(Oobakt) Label18.Caption = Int(c) V: If Ozap = 0 Then GoTo F ...


Программирование логической игры на visual basic [нестрогое соответствие]
Программирование и комп-ры, Программирование логической игры на visual basic , Работа Курсовая ... Caption - 5 If et = 4 Then Label48.Caption = Label48.Caption + 10 If et = 5 Then Label48.Caption = Label48.Caption - 10 If et = 6 Then Label48.Caption ...
... If et = 11 Then Label48.Caption = Label48.Caption - 200 If et = 12 Then Label48.Caption = 0 If et = 13 Then Label48.Caption = 0 If et = 14 Then End If ...


Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция While Wend Вместо Do While x=0 Loop While x=0 Wend |If условное выражение Then (Enter) |If выражение Then | |несколько операторов |оператор | |Else ...
... Case Is < 22 Grade = 4 Case Else Grade = 5 End Select Пример 1. If Then Else Private Sub Form_QueryUnload(Cansel As Integer, UnloadMode As Integer) X ...


Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде Windows 95/NT (дипломная ... [нестрогое соответствие]
Программирование и комп-ры, Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде ... ... True MenuSeparator.Visible = True MenuFrom = Index PopupMenu RightButtonMenuOnForm End If End Sub Private Sub Menu_Edit_Click() MainForm.PopupMenu ...
... MenuFrom).Picture = LoadPicture(Documents(temp).ImageIcon) End If Else End If End Sub Private Sub MenuRegistration_Click() RegistrForm.Show vbModal ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... 1024 div 1024)+' Мега '+'('+ floattostr(memorystatus.dwtotalphys / 1024 / 1024)+')'; avail.caption:=floattostr(memorystatus.dwavailphys / 1024 / 1024) ...
... Windows 95 (98)'; ver_platform_win32_nt:os.caption:='Windows NT'; end; with osverinfo do begin winver:=format('%d.%d',[dwmajorversion, dwminorversion] ...


VBA Платежка [нестрогое соответствие]
Экономико-математическое моделирование, VBA Платежка, Курсовая ... отнимает 1 день от даты If IsDate(Дата) = True Then Дата = CDate(Дата) - 1 Else End If End Sub Private Sub Плюс_Click() ' прибавляет один день к дате ...
... ByVal KeyAscii As MSForms.ReturnInteger) If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0 End Sub Private Sub УНН_KeyPress(ByVal KeyAscii As ...


Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ [нестрогое соответствие]
Программирование и комп-ры, Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ , Рефераты ... в Visual Basic!" 'Выдает сообщение "Выдает приветственное сообщение End Sub Private Sub Text1_Change() Text1.Enabled = False 'Делает текстовое поле ...
... перехода в др. форму End Sub Private Sub Command3_Click() Form2.Hide 'Скрывает 2 форму Form3.Show 'Показывает 3 форму Command1.Enabled = True ' Делает ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... Chr$(13) + Chr$(10) Check2.Enabled = False End If End Sub Private Sub Check3_Cli.ck() If Check3.Value = 0 Then Listi.Columns = 1 Else Listi.Columns ...
... Text4_KeyPress(KeyAscil As Integer) Dim FindCriteriy, Poisk As Variant If KeyAscil = 13 Then Poisk = Text4.Text FindCriteriy = "Name =" ... & Poisk ...