想問大大
該怎麼把存檔的名稱設為Rs232所擷取到的值
首先我先說一下
我現在是再做一個錄影程式結合RS232
form裡面的主程式有一個副程式
是寫說rs232的值會反映在text1的框框裡
Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent '以下為PIC送資料來時會觸發的事件 Case comEvReceive message = Trim(MSComm1.Input) Text1.Text = message End Select End Sub

現在來到整個錄影程式他要儲存的地方

Private Sub Text1_Change() Call ezVidCap1.CaptureVideo '我利用text1的改變來呼叫錄影程式 Dim filename As String '錄完影之後他會自動跑出儲存檔案的視窗 要你打檔案名稱及儲存途徑等等 If mCmnDlg.VBGetSaveFileNamePreview(filename, _ FileMustExist:=False, _ filter:="AVI files (*.avi)|*.avi", _ InitDir:=App.Path, _ DlgTitle:="Save AVI File", _ DefaultExt:="avi", _ Owner:=Me.hWnd) _ Then On Error Resume Next Call ezVidCap1.SaveAs(filename) If Err Then MsgBox Err.Description, vbInformation, App.Title End If End If
它主要是抓模組裡面的一個 mCmnDlg.bas
裡面的fuction程式
Public Function VBGetSaveFileNamePreview(filename As String, _ Optional FileTitle As String = "", _ Optional FileMustExist As Boolean = True, _ Optional MultiSelect As Boolean = False, _ Optional ReadOnly As Boolean = False, _ Optional HideReadOnly As Boolean = False, _ Optional filter As String = "All (*.*)| *.*", _ Optional FilterIndex As Long = 1, _ Optional InitDir As String = "", _ Optional DlgTitle As String = "", _ Optional DefaultExt As String = "", _ Optional Owner As Long = -1, _ Optional Flags As Long = 0) As Boolean Dim opfile As OPENFILENAME, s As String, afFlags As Long Dim tempfilename As String With opfile .lStructSize = Len(opfile) ' Add in specific flags and strip out non-VB flags .Flags = (-FileMustExist * OFN_FILEMUSTEXIST) Or _ (-MultiSelect * OFN_ALLOWMULTISELECT) Or _ (-ReadOnly * OFN_READONLY) Or _ (-HideReadOnly * OFN_HIDEREADONLY) Or _ (Flags And CLng(Not (OFN_ENABLEHOOK Or _ OFN_ENABLETEMPLATE))) ' Owner can take handle of owning window If Owner <> -1 Then .hwndOwner = Owner ' InitDir can take initial directory string .lpstrInitialDir = InitDir ' DefaultExt can take default extension .lpstrDefExt = DefaultExt ' DlgTitle can take dialog box title .lpstrTitle = DlgTitle ' To make Windows-style filter, replace | and : with nulls Dim ch As String, i As Integer For i = 1 To Len(filter) ch = Mid$(filter, i, 1) If ch = "|" Or ch = ":" Then s = s & vbNullChar Else s = s & ch End If Next ' Put double null at end s = s & vbNullChar & vbNullChar .lpstrFilter = s .nFilterIndex = FilterIndex ' Pad file and file title buffers to maximum path tempfilename = message '把rs232的值存進tempfilename裡 s = filename & String$(MAX_PATH - Len(filename), 0) .lpstrFile = s .nMaxFile = MAX_PATH s = FileTitle & String$(MAX_FILE - Len(FileTitle), 0) .lpstrFileTitle = s .nMaxFileTitle = MAX_FILE ' All other fields set to zero If GetSaveFileNamePreview(opfile) Then VBGetSaveFileNamePreview = True filename = tempfilename + ".avi" '存檔的檔名為 RS232的值.avi 'filename = Left$(.lpstrFile, InStr(.lpstrFile, vbNullChar) - 1)功能:使其輸入為黨名 此為原本程式有的我把它改掉 FileTitle = Left$(.lpstrFileTitle, InStr(.lpstrFileTitle, vbNullChar) - 1) Flags = .Flags ' Return the filter index FilterIndex = .nFilterIndex ' Look up the filter the user selected and return that filter = FilterLookup(.lpstrFilter, FilterIndex) If (.Flags And OFN_READONLY) Then ReadOnly = True Else VBGetSaveFileNamePreview = False filename = tempfilename + ".avi" '存檔的檔名為 RS232的值.avi 'filename = vbNullChar 此為原本程式有的我把它改掉了 FileTitle = vbNullChar Flags = 0 FilterIndex = -1 filter = vbNullChar End If End With End Function
問題來了
我發現我用中斷程式來看之前form裡的程式
message = Trim(MSComm1.Input) '中斷點 Text1.Text = message '中斷點
在刷了條碼之後，我游標移到中斷點上面是看得到友直存進去的
但是來到mCmnDlg.bas裡面的fuction程式


tempfilename = message '把rs232的值存進tempfilename裡(中斷點) s = filename & String$(MAX_PATH - Len(filename), 0) .lpstrFile = s .nMaxFile = MAX_PATH s = FileTitle & String$(MAX_FILE - Len(FileTitle), 0) .lpstrFileTitle = s .nMaxFileTitle = MAX_FILE ' All other fields set to zero If GetSaveFileNamePreview(opfile) Then VBGetSaveFileNamePreview = True filename = tempfilename + ".avi" '存檔的檔名為 RS232的值.avi(中斷點)
我游標移到tempfilename = message
上面顯示tempfilename&message的值是"empty"
最後移到filename的時候是".avi"
tempfilename完全沒抓到
想請問大大由誰可以告訴我打邊寫錯了

---