Реферат: База данных видеокарт
Dim chk1 As tune
Dim log1 As log
Open CurDir$ + "\set.ini" For Random As #1 Len = Len(chk1)
Get #1, 1, chk1
If chk1.chekv = "0" Then
Unload Me
Form1.Show
Else
Form1.Check1.Value = 1
End If
Open CurDir$ + "\log.dat" For Random As #2 Len = Len(log1)
End Sub
При нажатии курсором в любую область сплэшскрин выгружается и появляется окно основного меню:
При наведении курсора на любую область в рамке помощь появляется подсказка.
Public excelist As New Excel.Application
‘чек
Private Sub Check1_Click()
Dim chk1 As tune
chk1.chekn = " = Check1.value "
chk1.chekv = Check1.Value
Put #1, 1, chk1.chekv
End Sub
'помощьчек
Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Показывать/нет сплэшскрин (информацию о программе) при загрузке базы данных"
End Sub
‘загрузкаформы
Private Sub Form_Load()