第1个回答 2020-06-25
就教你做个登陆器
建：
点label按钮，建label1的caption为QQ登陆
label2的caption为密码
点combo按钮，建combo1
点text按钮，建立text1
点command按钮，建
command1的caption为登陆
command2的caption为退出
双击command1中输入代码:
docase
casethisform.text1.value="user";
.and.thisform.text2.value="123"
i=messatextgebox("欢迎光临",48)
thisform.release
otherwise
i=messagebox("错了",32)
thisform.release
endcase
双击command2中输入代码:thisform.release
点击运行！OK啦！
这可是我手写的呵，希望采纳！