Как установить липкие переменные в VB6

Question

Я новичок в Visual Basic 6 и не имею возможности перейти на более новую платформу. Нам нужно внести пару изменений в существующую программу.

У меня есть форма (Form1) с 3 текстовыми полями. Мне нужно сохранить каждое значение текстового поля после того, как пользователь его заполнит.

После того, как пользователь нажмет клавишу Enter, значение для этого поля должно быть сохранено, а затем проверено на пустые значения из одной функции / Sub.

Вот что у меня есть:

Private Sub empId_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Dim empId As String
    empId = Form1.empId.Text 'Save this for a later test
  End If
End Sub

Private Sub orderNo_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Dim orderNo As String
    orderNo = Form1.orderNo.Text 'Save this for a later test
  End If
End Sub

Private Sub partNo_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Dim partNo As String
    partNo = Form1.partNo.Text 'Save this for a later test
  End If
End Sub

После того, как все переменные установлены, я хотел бы сделать что-то похожее на:

if(!empId || !orderNo || !partNo) {
  // show error
} else{
  // process the data
}

Может кто-топокажи как это сделать?

Answer 1

Следующий код аналогичен тому, что вы уже предоставили, но должен делать то, что вам нужно:

Option Explicit

Private m_empID As String
Private m_orderNo As String
Private m_partNo As String

Private Sub Form_Load()
   Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   m_empID = empID.Text
   m_orderNo = orderNo.Text
   m_partNo = partNo.Text
End Sub

Private Sub ASubCalledLater()
   If m_empID = "" Or m_orderNo = "" Or m_partNo = "" Then
      ' show error
   Else
      ' process the data
   End If
End Sub

Вам нужно будет установить KeyPreview для формы в True, чтобы это работало.