您所在位置：主题：[讨论]请教代码的运行修改
zhaoyun110ai
[专家分：0] 发布于 2012-01-19 19:23:00
Private Sub Form_keypress(keyascii As Integer)
'Esc键退出，vbescape可以用27代替
If keyascii = vbescape Then End
End Sub
Private Sub form_keydown(keycode As Integer, shift%)
'处理ctrl+X,Alt+X
If shift = 2 And keycode = vbKeyS Then
Print #filenum, Form1.Text1.Text 'Ctrl+S 存盘，vbkeyS=83
If shift = 2 Then
Form1.WindowState = 1 'shift最小化
If shift = 4 And keycode = vbKeyX Then
End 'Alt+X退出,vbkeyX=88
End
End Sub
Private Sub Form_Load()
Dim filenum As Integer
filenum = FreeFile
Open App.Path + "\Sample.txt" For Append As #filenum
End Sub
整段代码哪里出了问题，本人小菜，还想想知道用什么方法可以实现最大化，存储TEXTBOX中输入的内容，这里存盘存入的是什么，如何使做出来的exe文件能够在桌面最底端显示，怎样修改VB做出来的exe文件图标且到其他电脑中仍有效，如何利用VB后台发送邮件甚至批量发送邮件，希望各路大虾能给小菜我一一解惑。
'Esc键退出，vbescape可以用27代替
If keyascii = vbescape Then End
End Sub
Private Sub form_keydown(keycode As Integer, shift%)
'处理ctrl+X,Alt+X
If shift = 2 And keycode = vbKeyS Then
Print #filenum, Form1.Text1.Text 'Ctrl+S 存盘，vbkeyS=83
If shift = 2 Then
Form1.WindowState = 1 'shift最小化
If shift = 4 And keycode = vbKeyX Then
End 'Alt+X退出,vbkeyX=88
End
End Sub
Private Sub Form_Load()
Dim filenum As Integer
filenum = FreeFile
Open App.Path + "\Sample.txt" For Append As #filenum
End Sub
整段代码哪里出了问题，本人小菜，还想想知道用什么方法可以实现最大化，存储TEXTBOX中输入的内容，这里存盘存入的是什么，如何使做出来的exe文件能够在桌面最底端显示，怎样修改VB做出来的exe文件图标且到其他电脑中仍有效，如何利用VB后台发送邮件甚至批量发送邮件，希望各路大虾能给小菜我一一解惑。
