发表于 2009-1-5 19:48
| 
濡備綍鐢═extBox鎵撳紑鍜屼繚瀛樻枃浠
鍙戝竷: 2008-7-15 14:42 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 23娆
200銆佸浣曠敤TextBox鎵撳紑鍜屼繚瀛樻枃浠
'鏂板缓鏍囧噯EXE锛屽姞鍏ヤ竴涓猅extBox鎺т欢锛屼竴涓叕鍏卞璇濇锛屼袱涓彍鍗曘
'鎵撳紑
Private Sub mnuOpen_Click()
CommonDialog1.Filter = "鏂囨。鏂囦欢(*.txt)|*.txt|鎵鏈夋枃浠(*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
End Sub
'淇濆瓨
Private Sub mnuSave_Click()
On Error Resume Next
CommonDialog1.Filter ="鏂囨。鏂囦欢(*.txt)|*.txt|鎵鏈夋枃浠(*.*)|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close 1
End Sub
TextBox鍙敮鎸佹墦寮64K浠ヤ笅鐨勬枃浠讹紝寤鸿鏈濂借缃嚭閿欏鐞嗐
浠ヤ笂绋嬪簭鍦≒Win98銆乂B6.0涓嬭皟璇曢氳繃銆
