作者davincil (Unipersonality)
看板Visual_Basic
标题[问题] VB
时间Thu Jul 16 23:38:22 2009
※ [本文转录自 Wanted 看板]
作者: davincil (Unipersonality) 看板: Wanted
标题: [问题] VB
时间: Thu Jul 16 23:37:02 2009
问题於下方，请大家多多指教
小弟非常需要
Private Sub dirSource_Change() '硬碟槽下的子档案
filSource.Path = dirSource.Path '子档案 = 子子档案
End Sub
Private Sub drvSource_Change() '硬碟槽
dirSource.Path = drvSource.Drive '硬碟槽 = 子档案
End Sub
Private Sub filSource_Click() '子子档案
Dim Filename As String '宣告filename 为一个字串
Filename = filSource.Path
If Right(Filename, 1) <> "\" Then Filename = Filename & "\" ' ???
Filename = Filename & filSource.Filename
'picView.Picture = LoadPicture(Filename)
Open Filename For Input As #1
→→txtView.Text = StrConv(InputB(LOF(1), #1), vbUnicode)
程式侦测出说这行错误，无法在textbox里读取
我想是不是因为它没有换到下一列的执行
希望有高人指点
<(_ _)> 拜托拜托
小弟会非常感谢
Close #1
End Sub
Private Sub Form_Load()
filSource.Pattern = "*.txt;*.htm;*.vbp;*.frm"
txtView.Locked = True
End Sub
Private Sub Text1_Change()
Open Filename For Input As #1
Print #1, txtView.Text
Close #1
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.169.132.23
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.169.132.23