Dim a As Integer ' счетчик для списка "Количество в схеме"
Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Dim FN As Integer
Dim x As String
Dim y As String
x = "Название"
y = "Количество"
FN = FreeFile
Dim FName As String
FName = "e:\Аня\Надежность\book.xls" ' --->>> Изменить на ТОЧНЫЙ путь к файлу!!!!!! (например: "C:\Надежность\doc\new.txt"
Open FName For Append As #FN
Print #FN, Spis.Text, sps.Text
Close #FN
End Sub

Private Sub Form_Load()
Set Picture1.Picture = LoadPicture("e:\Аня\Надежность\images\04.bmp" '*** ДЛЯ ИЗНАЧАЛЬНОГО (ДЛЯ 1)
Set Picture2.Picture = LoadPicture("e:\Аня\Надежность\images\no.bmp" '***
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*
HScroll1.Min = 0 '-----*
HScroll1.Max = ScaleX(Picture1.Picture.Width, 8, vbTwips) - Picture2.Width '-----*
HScroll1.LargeChange = 10 * Screen.TwipsPerPixelX '-----*
HScroll1.SmallChange = Screen.TwipsPerPixelX '-----*
VScroll1.Min = 0 '-----*
VScroll1.Max = ScaleX(Picture1.Picture.Height, 8, vbTwips) - Picture2.Height '-----*
VScroll1.LargeChange = 10 * Screen.TwipsPerPixelY '-----*
VScroll1.SmallChange = Screen.TwipsPerPixelY '-----*
HScroll1_Change '-----*
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*
'***Список элементов***'
Spis.AddItem "Резистор", 0
Spis.AddItem "Конденсатор"
Spis.AddItem "Диод"
Spis.AddItem "Катушка индуктивности"
Spis.AddItem "Транзистор"
Spis.AddItem "Теристор"
Spis.AddItem ""
'***Конец списка элементов***'
'----
'***Список "Количество в схеме"***'
For a = 1 To 35
sps.AddItem a
Next a
'***конец списка "Количество в схеме"***'
End Sub
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*
Private Sub HScroll1_Change()
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, HScroll1.Value, VScroll1.Value, Picture2.Width, Picture2.Height
End Sub
Private Sub HScroll1_Scroll()
Picture2.PaintPicture Picture1.Picture, 0, 0, _
Picture2.Width, Picture2.Height, _
HScroll1.Value, VScroll1.Value, _
Picture2.Width, Picture2.Height
End Sub

Private Sub VScroll1_Change()
HScroll1_Change
End Sub
Private Sub VScroll1_Scroll()
HScroll1_Scroll
End Sub
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*
'----------------------------------------------------------------------------------*

Private Sub var_n_Change()
'ВВЕСТИ ВАРИАНТ И НАЗВАНИЕ СХЕМЫ
' ИЗМЕНИТЬ ОТМЕЧЕННЫЕ ***
If var_n.Text = "1" Then
var_name.Caption = "Усилитель"
Set Picture1.Picture = LoadPicture("e:\Аня\Надежность\images\04.bmp" '***
Set Picture2.Picture = LoadPicture("e:\Аня\Надежность\images\04.bmp" '***
End If
If var_n.Text = "2" Then
var_name.Caption = "Генератор"
Set Picture1.Picture = LoadPicture("e:\Аня\Надежность\images\05.bmp" '***
Set Picture2.Picture = LoadPicture("e:\Аня\Надежность\images\05.bmp" '***
End If
If var_n.Text = "3" Then
var_name.Caption = "Видеоплата"
Set Picture1.Picture = LoadPicture("e:\Аня\Надежность\images\06.bmp" '***
Set Picture2.Picture = LoadPicture("e:\Аня\Надежность\images\06.bmp" '***
End If
'----------------------
'**********************
'----------------------
'ТУТ У НАС ОГРАНИЧИТЕЛЬ
If var_n.Text < "1" Then
var_name.Caption = "Введите Ваш вариант"
Set Picture1.Picture = LoadPicture("e:\Аня\Надежность\images\no.bmp" '***
Set Picture2.Picture = LoadPicture("e:\Аня\Надежность\images\no.bmp" '***
End If
'ДО КАКОГО НОМЕРА???
If var_n.Text > "4" Then
var_name.Caption = "Введите Ваш вариант"
Set Picture1.Picture = LoadPicture("e:\Аня\Надежность\images\no.bmp" '***
Set Picture2.Picture = LoadPicture("e:\Аня\Надежность\images\no.bmp" '***
End If
End Sub

Private Sub Form_Load()
Dim FN As Integer
FN = FreeFile
Dim FName As String
If Form1.var_n.Text = "1" Then
FName = "e:\Аня\Надежность\doc\new.txt" ' --->>> Изменить на ТОЧНЫЙ путь к файлу!!!!!! (например: "C:\Надежность\doc\new.txt"
Open FName For Input As #FN
Text1.Text = Input(LOF(FN), #FN)
Close #FN
End If
If Form1.var_n.Text = "2" Then
FName = "e:\Аня\Надежность\doc\new2.txt" ' --->>> Изменить на ТОЧНЫЙ путь к файлу!!!!!! (например: "C:\Надежность\doc\new.txt"
Open FName For Input As #FN
Text1.Text = Input(LOF(FN), #FN)
Close #FN
End If
'--------------------
If Form1.var_n.Text = "3" Then
FName = "e:\Аня\Надежность\doc\new3.txt" ' --->>> Изменить на ТОЧНЫЙ путь к файлу!!!!!! (например: "C:\Надежность\doc\new.txt"
Open FName For Input As #FN
Text1.Text = Input(LOF(FN), #FN)
Close #FN
End If
'----------------------

End Sub