5.Ксписок
VERSION 5.00
Begin VB.Form Form1
BackColor = &H008EFC0A&
Caption = "Form1"
ClientHeight = 2370
ClientLeft = 1830
ClientTop = 1920
ClientWidth = 7155
LinkTopic = "Form1"
ScaleHeight = 2370
ScaleWidth = 7155
Begin VB.Frame Frame3
BackColor = &H00FECDFD&
Caption = "Оклад сотрудника"
Height = 855
Left = 4410
TabIndex = 2
Top = 180
Width = 1800
Begin VB.ComboBox Combo3
Height = 315
ItemData = "Form2.frx":0000
Left = 180
List = "Form2.frx":0002
Style = 2 'Dropdown List
TabIndex = 5
Top = 315
Width = 1365
End
End
Begin VB.Frame рмСписок
BackColor = &H00FECDFD&
Caption = "ФИО сотрудников"
Height = 2070
Left = 2205
TabIndex = 1
Top = 180
Width = 2025
Begin VB.ComboBox спСписок
Height = 1545
ItemData = "Form2.frx":0004
Left = 315
List = "Form2.frx":0006
Style = 1 'Simple Combo
TabIndex = 4
Text = "Введите ФИО сотрудника"
Top = 360
Width = 1410
End
End
Begin VB.Frame Frame1
BackColor = &H00FECDFD&
Caption = "Статус сотрудника"
Height = 1215
Left = 135
TabIndex = 0
Top = 180
Width = 1800
Begin VB.ComboBox Combo1
Height = 315
ItemData = "Form2.frx":0008
Left = 135
List = "Form2.frx":000A
TabIndex = 3
Text = "Введите статус"
Top = 360
Width = 1410
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
'BackColor = vbBlue
With Combo1
If Trim(.Text) = "" Then .Text = "": Exit Sub
If Trim(.Text) = .List(.ListIndex) Then
.RemoveItem .ListIndex
Else
For i = 0 To .ListCount - 1
If Trim(.Text) = .List(i) Then
MsgBox "Вводимый текст уже есть", vbExclamation + vbOKOnly, "Предупреждение!"
.Text = ""
Exit Sub
End If
Next i
.AddItem Trim(.Text)
End If
End With
'If Trim(Combo1.Text) = "" Then Combo1.Text = "": Exit Sub
End Sub
Private Sub Form_Click()
рмСписок.Top = рмСписок.Top + 150
End Sub
Private Sub спСписок_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
'BackColor = vbBlue
With спСписок
If Trim(.Text) = "" Then .Text = "": Exit Sub
If Trim(.Text) = .List(.ListIndex) Then
.RemoveItem .ListIndex
Else
For i = 0 To .ListCount - 1
If Trim(.Text) = .List(i) Then
MsgBox "Вводимый текст уже есть", vbExclamation + vbOKOnly, "Предупреждение!"
.Text = ""
Exit Sub
End If
Next i
.AddItem Trim(.Text)
End If
End With
'If Trim(спСписок.Text) = "" Then спСписок.Text = "": Exit Sub
End Sub