Реферат: База данных видеокарт

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()