MstnVBA学习--Vol5.可视界面的学习--20220625

---

前言

典型的窗体由标签, 复合框, 文本框, 命令按钮组成.

---

1. 控件事件

在左侧复合框(下图选中的是CommandButton1)中选择一个控件后，就能在右侧复合框(下图选中的是 Click事件)选择一个事件。

一个 KeyPress 事件，当按了一个键后发生该事件。我们能考察某些事件传递的参数，如 KeyPress 事件传递的“KeyAscii”参数。

把该参数作为变量用来考察用户按下了哪个键。

控件提示文本
完美的界面能提供给用户执行正确功能的控件，而且每次使用程序时不需要查阅用户手册。你可以在每个控件旁放上长的标签来详细解释该控件为何在此以及如何使用它，但这样使得界面乱糟糟。把鼠标放在控件上呆一到两秒，VBA就会显示控件的提示文本。

2. 用户界面练习

(1) 初始化事件

用户窗体的 initialize 初始化事件

通过 AddItem 方法将 ActiveDesignFile 中的层名和单元名分别赋给 Level 和 Cells 复合框。 

Private Sub UserForm_Initialize() 
	Dim MyLevel As Level 
	Dim MyCellEnum As CellInformationEnumerator 	'创建一个cell单元枚举器
	Dim MyCell As CellInformation 					'CellInformation 对象提供有关可用cell的一些信息。
	For Each MyLevel In ActiveDesignFile.Levels 	
		cmbLevels.AddItem MyLevel.Name 				'把每个层的信息添加到cmbLevels中
	Next 
	Set MyCellEnum = Application.GetCellInformationEnumerator(True, True) 		'通过枚举器获取cell信息
	While MyCellEnum.MoveNext 					'只要枚举器不是空的就循环执行
		Set MyCell = MyCellEnum.Current 		'获取cell信息
		cmbCells.AddItem MyCell.Name 			'给cmbCells添加cell名称
	Wend 
End Sub 

(2) 文本框Change事件

下面KeyPress事件的功能是确保文本框输入的内容属于0-9, 并且如果已经输入了小数点就不允许在输入小数点了

Private Sub txtX_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc(".")
            If InStr(1, txtX.Text, ".") > 0 Then			'Y和Z的文本框对应修改 "X" 的值
            'InStr 返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
            'InStr([start, ]string1, string2[, compare])
                KeyAscii = 0
            End If
        Case Else
            KeyAscii = 0
        End Select
End Sub

(3) 下面是给按钮Insert赋予功能

当用户点击命令按钮“Insert”时，我们需要在选择的层、输入的点处插入选择的单元。

Private Sub cmdInsert_Click()
	If cmbLevels.Text = ""Then									'给cmbLevels复合框的Text属性赋值
		MsgBox "Please select a level."							'如果是空的则弹窗提示
		Exit Sub
	End If
	Dim CellElem As CellElement
	Dim InsPt As Point3d
	InsPt.X = CDbl(txtX.Text)		'用txtX, txtY, txtZ文本框取得单元原点X, Y, Z的值
	InsPt.Y = CDbl(txtY.Text)
	InsPt.Z = CDbl(txtZ.Text)
	Set CellElem = CreateCellElement3(cmbCells.Text, InsPt, True)		'建立单元
	CellElem.Level = ActiveDesignFile.Levels(cmbLevels.Text)			'然后设置单元的层为cmbLevels复合框的Text属性值
	'插入单元前先确保用户选择了一个层和一个单元
	ActiveModelReference.AddElement CellElem			'把元素加入到当前模型中
End Sub

(4) 最后的 “PICK” 按钮

PICK按钮用于选择单元原点, 也就是让用户在Mstn中选择点而不是手工输入XYZ的值. 如果用户已经选择了层和单元, 将会在选择点自动插入单元, 就省去了点击PICK后还要点击INSERT的步骤

我们想让用户在 MicroStation 中点击。但缺省条件下会出问题，因为 VBA 窗体是模态的(modal)。也就是说，窗体激活后将阻止用户与MicroStation 交互直到窗体被卸载为止。要解决这一潜在的问题，需要以非模态(modeless)方式显示窗体。

Sub DoCellInsertion()
	frmCellInsertion.Show vbModeless
End Sub

对于"PICK"命令按钮, 我们想让用户拾取一个点, 在层和单元复合框都不空的条件下, 在选择的层上, 在选择的点处插入选择的单元

Private Sub cmdPick_Click()
	'声明一些变量
	Dim MyMsg As CadInputmessage
	Dim MyQue As CadInputQueue
	Dim SelPt As Point3d
	Dim CellElem As CellElement
	'错误处理
	On Error GoTo errhnd
	'设置监听动作, 来处理输入队列
	Set MyQue = Application.CadInputQueue

	Do
		'如果用户拾取了一个点
		Set MyMsg = MyQue.Getinput
		Select Case MyMsg.InputType
		'MicroStation对象模型——枚举 Enumeration
		'枚举的优点：在分析代码时能更容易地看到所需参数的结果。
		'枚举成员名称经常以枚举名称或枚举名称的缩略版本开头。
		'例如msdDesignFileFormatDWG 就是枚举名称“MsdDesignFileFormat”开头的。
		'MicroStation中所有的枚举都是以指定的三个字符“Msd”开头，所有的成员都以“msd”开头
			Case msdCadInputTypeDataPoint
				'把选择的点元素的XYZ值放入三个文本框中
				SelPt = MyMsg.Point
				txtX.Text = SelPt.X
				txtY.Text = SelPt.Y
				txtZ.Text = SelPt.Z
				'如果层复合框和单元复合框都不是空的,
				If cmbLevels.Text <> "" And cmbCells.Text <> "" Then
					'在选择的点插入选择的单元
					Set CellElem = CreateCellElement3(cmbCells.Text, SelPt, True)
					'再改变其Level属性以反应选择的层
					CellElem.Level = ActiveDesignFile.Levels(cmbLevel.Text)
					'绘制元素
					ActiveModelReference.AddElement CellElem
				End If
				Exit Do
			Case Else
				Exit Do
		End Select
	Loop
	Exit Sub
'如果输入或发生错误就推出该过程
errhnd:
	Err.Clear
End Sub

---

总结

例子难度不是特别大, 但是完全默写实现该功能还需要学习和练习!