大良建网站,免费建站免费网站,拉网线要多少钱,避免视觉效果混淆建立一个EXE工程#xff0c;在窗体上放一个文本框#xff0c;一个列表框和三个按钮输入如下的代码#xff1a; Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)List1.AddItem(Text1.Text)End SubSub Form1_Command2_BN_Clicked(hWndForm As hWnd, h…建立一个EXE工程在窗体上放一个文本框一个列表框和三个按钮输入如下的代码 Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)List1.AddItem(Text1.Text)End SubSub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)If List1.ListCount 0   ThenMsgBox(没有条目)Elselist1.RemoveItem(0)End IfEnd SubSub Form1_List1_LBN_SelChange(hWndForm As hWnd, hWndControl As hWnd)MsgBox(List1.Text)End Sub 实现的功能为单击增加条目按钮将文本框当前内容加为列表框的一条条目单击删除按钮删除一条条目双击条目则弹出一个消息框显示该条目的内容。如图35。