请问VB中如何点击按键后能弹出类似列表的对话框，列表只需可关闭或确定即好，谢谢

Question

请问VB中如何点击按键后能弹出类似列表的对话框，列表只需可关闭或确定即好，并且对话框中第一行为：“库存1”“库存2”“库存3”；第二行为：a的值，b的值，c的值（a,b,c是全局变量，已有值），类似下图，能写下代码最好，非常感谢。

Answer 1

可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现

方法一，利用msgbox：

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long
MsgBox "┌────┬────┬────┐" & vbCrLf _
     & "│  库存1 │  库存2 │  库存3 │" & vbCrLf _
     & "├────┼────┼────┤" & vbCrLf _
     & "│" & formatstr(a) & "│" & formatstr(b) & "│" & formatstr(c) & "│" & vbCrLf _
     & "└────┴────┴────┘"
     
End Sub
Private Function formatstr(ByVal inputStr As String) As String
Dim j As Integer
j = (8 - Len(inputStr)) \ 2
formatstr = Space(j) & inputStr & Space(j) & Space((8 - Len(inputStr)) Mod 2)
End Function

方法二，利用窗体实现：

’新建form2窗体
‘将以下代码复制到form2窗体中
Private Sub Form_Load()
Show
Print "┌────┬────┬────┐" & vbCrLf _
     & "│  库存1 │  库存2 │  库存3 │" & vbCrLf _
     & "├────┼────┼────┤" & vbCrLf _
     & "│" & formatstr(a) & "│" & formatstr(b) & "│" & formatstr(c) & "│" & vbCrLf _
     & "└────┴────┴────┘"
     
End Sub
Private Function formatstr(ByVal inputStr As String) As String
Dim j As Integer
j = (8 - Len(inputStr)) \ 2
formatstr = Space(j) & inputStr & Space(j) & Space((8 - Len(inputStr)) Mod 2)
End Function
‘将以下代码复制在form1窗体中
Private Sub Command1_Click()
Form2.Show
End Sub

Answer 2

你打开附件自己看，就明白了！

追问

非常感谢，工程打开后跳出来错误，运行的时候显示未找到方法，我已经看完您编的程序了，非常谢谢