[問題] VB

看板Visual_Basic作者davincil (Unipersonality)時間16年前 (2009/07/16 23:38)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

※ [本文轉錄自 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