结果输出窗体代码-vb基础知识课件
结果输出窗体代码： Private Sub Command1_Click() ‘返回按钮代码Form1.Show Form3.Hide End Sub Private Sub Command2_Click() ‘结束按钮代码End Sub开处方窗体代码： Private Sub Combo1_DblClick() List1.AddItem Combo1.Text End Sub Private Sub Command1_Click() ‘结果输出按钮代码Form2.Hide Form3.Show Form3.Label1.Caption = str1 & " " & str2 & vbCrLf & "处方清单：" & vbCrLf num = Form2.List1.ListCount - 1 ReDim drug(num + 1) For i = 0 To num drug(i) = Form2.List1.List(i) Next i For i = 0 To num Form3.Label1.Caption = Form3.Label1.Caption & drug(i) & vbCrLf Next i End Sub暗暗*
文件大小：4.79MB
评论区