grvbsave.frm

机器人程序

VERSION 5.00
Begin VB.Form SaveFrm 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "保存为Sgf 文件"
   ClientHeight    =   3645
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3840
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3645
   ScaleWidth      =   3840
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Cancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   2040
      TabIndex        =   5
      Top             =   3120
      Width           =   1575
   End
   Begin VB.CommandButton ok 
      Caption         =   "保存"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   3120
      Width           =   1575
   End
   Begin VB.TextBox FName 
      Height          =   270
      Left            =   240
      TabIndex        =   2
      Top             =   465
      Width           =   3375
   End
   Begin VB.DriveListBox Drive1 
      Height          =   300
      Left            =   240
      TabIndex        =   1
      Top             =   1080
      Width           =   3375
   End
   Begin VB.DirListBox Dir1 
      Height          =   1560
      Left            =   240
      TabIndex        =   0
      Top             =   1440
      Width           =   3375
   End
   Begin VB.Label Label1 
      Caption         =   "选择目录"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   3375
   End
End
Attribute VB_Name = "SaveFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'form SaveFrm.frm
' 保存文件对话框

'- - - - - - - - - - - - - - - - - - - - - - - - - -
Option Explicit

'载入
Private Sub Form_Load()
  FName.Text = App.Path & "\Untitled.sgf"
  Drive1.Drive = Left$(App.Path, 1)
  Dir1.Path = App.Path
End Sub

'确定
Private Sub ok_Click()
  RobbySaveFile
  SaveSgfFile FName
  Me.Hide
  GRVBMain.Enabled = True
  GRVBMain.Show
End Sub

'取消
Private Sub Cancel_Click()
  GRVBMain.Enabled = True
  Me.Hide
  GRVBMain.Show
End Sub

'文件夹
Private Sub Dir1_Change()
  If Right$(Dir1.Path, 1) = "\" Then
    FName.Text = Dir1.Path & "Untitled.sgf"
  Else
    FName.Text = Dir1.Path & "\Untitled.sgf"
  End If
End Sub

'驱动器
Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive
End Sub

'- - - - - - - - - - - - - - - - - - - - - - - - - -