frmseries.frm

vb编写机器人遥控程序

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmSeries 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "采序列"
   ClientHeight    =   1890
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5295
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1890
   ScaleWidth      =   5295
   StartUpPosition =   2  '屏幕中心
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton cmdPath 
      Caption         =   "..."
      Height          =   375
      Left            =   4320
      TabIndex        =   6
      Top             =   240
      Width           =   495
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   3720
      TabIndex        =   5
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   375
      Left            =   1320
      TabIndex        =   4
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox txtFrameSum 
      Height          =   325
      Left            =   1440
      TabIndex        =   3
      Text            =   "3"
      Top             =   720
      Width           =   1575
   End
   Begin VB.TextBox txtPath 
      Height          =   325
      Left            =   1440
      TabIndex        =   1
      Top             =   240
      Width           =   2775
   End
   Begin VB.Label Label2 
      Caption         =   "间隔帧数："
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "存储路径："
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   975
   End
End
Attribute VB_Name = "frmSeries"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pIdl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Dim m_Path As String
Private Type BrowseInfo
    hwndOwner As Long
    piDLroot As Long
    pszdisplayName As String
    lpsztitle As String
    ulFlags As Long
    lpfncallback As Long
    lParam As Long
    iImage As Long
End Type


Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOk_Click()
 If Trim(txtPath.Text) = "" Then
         MsgBox "请选择输入路径!", vbInformation + vbOKOnly, "提示!"
         Exit Sub
   End If
   frmMain.Timer1.Interval = Val(txtFrameSum.Text) * 40 + 40
    
   frmMain.labtemp.Caption = Trim(txtPath.Text)
   frmMain.Timer1.Enabled = True
   Unload Me
End Sub

Private Sub cmdPath_Click()
  Dim bi As BrowseInfo
  Dim folderid As Long
  Dim pb As String

    With bi
        .hwndOwner = Me.hwnd
        .lpsztitle = "把输出的文件存放到这个文件夹："
        .ulFlags = 3
    End With
    folderid = SHBrowseForFolder(bi)
    If folderid = 0 Then Exit Sub
    pb = String$(260, 0)
    SHGetPathFromIDList folderid, pb
    pb = left$(pb, InStr(pb, vbNullChar) - 1)
    txtPath.Text = pb

End Sub