?? frmadddataset.frm
字號:
VERSION 5.00
Begin VB.Form frmAddDataset
BorderStyle = 3 'Fixed Dialog
Caption = "加載數據集到三維窗口"
ClientHeight = 1980
ClientLeft = 45
ClientTop = 330
ClientWidth = 4080
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1980
ScaleWidth = 4080
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "取消"
Height = 300
Left = 2670
TabIndex = 6
Top = 1575
Width = 1170
End
Begin VB.CommandButton Command1
Caption = "確定"
Default = -1 'True
Height = 300
Left = 1290
TabIndex = 5
Top = 1590
Width = 1170
End
Begin VB.ComboBox cmbFiledZB
Appearance = 0 'Flat
Height = 315
Left = 1740
TabIndex = 4
Top = 1095
Width = 2115
End
Begin VB.ComboBox cmbFieldZA
Appearance = 0 'Flat
Height = 315
Left = 1740
TabIndex = 2
Top = 690
Width = 2115
End
Begin VB.CheckBox Check1
Alignment = 1 'Right Justify
Caption = "使用高程字段"
Height = 420
Left = 330
TabIndex = 0
Top = 180
Value = 1 'Checked
Width = 2280
End
Begin VB.Label Label2
Caption = "高程字段2"
Height = 360
Left = 330
TabIndex = 3
Top = 1110
Width = 1170
End
Begin VB.Label Label1
Caption = "高程字段1"
Height = 360
Left = 330
TabIndex = 1
Top = 705
Width = 1170
End
End
Attribute VB_Name = "frmAddDataset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_bResult As Boolean
Private Sub Check1_Click()
cmbFieldZA.Enabled = Check1.Value
cmbFiledZB.Enabled = Check1.Value
End Sub
Private Sub Command1_Click()
m_bResult = True
Me.Hide
End Sub
Private Sub Command2_Click()
m_bResult = False
Me.Hide
End Sub
Public Sub InitFields(objdv As soDatasetVector)
Dim i As Integer
cmbFieldZA.Clear
cmbFiledZB.Clear
For i = 1 To objdv.FieldCount
cmbFieldZA.AddItem objdv.GetFieldInfo(i).Name
cmbFiledZB.AddItem objdv.GetFieldInfo(i).Name
Next i
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -