2024年7月2日发(作者：)

VB设置Shape控件外观绘图

功能：VB设置Shape控件外观绘图，然后按照要求进行标准

图形变换

VB界面如下：

图二

1.电脑上必须要先Microsoft Visual Studio(也就是VB软

件)

2.用VB软件设置窗口如上（图二）

3.各个

Command对应的VB代码如下：

' 设置Shape控件外观

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 ' 绘制矩形

= 0

Case 1 ' 绘制正方形

= 1

Case 2 ' 绘制椭圆

= 2

Case 3 ' 绘制圆

= 3

Case 4 ' 绘制圆角矩形

= 4

Case 5 ' 绘制圆角正方形

= 5

Case 6 ' 结束退出

End

End Select

End Sub

Private Sub BorderS_Scroll()

Call BorderS_Click

End Sub

Private Sub BorderS_Click()

If dex <> "-1" Then

' 设置边框样式

Style = dex

End If

End Sub

Private Sub FillS_Scroll()

Call FillS_Click

End Sub

Private Sub FillS_Click()

If dex <> "-1" Then

' 设置填充方式

yle = dex

End If

End Sub

' 设置边框宽度

Private Sub HScroll1_Change()

Width =

End Sub

' 初始话列表框选项

Private Sub Form_Load()

' 初始话列表框选项

With FillS

.AddItem "0 实线"

.AddItem "1 透明"

.AddItem "2 水平直线"

.AddItem "3 垂直直线"

.AddItem "4 上斜对角线"

.AddItem "5 下斜对角线"

.AddItem "6 十字线"

.AddItem "7 交叉对角线"

End With

With BorderS

.AddItem "0 透明"

.AddItem "1 实线"

.AddItem "2 虚线"

.AddItem "3 点线"

.AddItem "4 点划线"

.AddItem "5 双点划线"

.AddItem "6 内收实线"

End With

End Sub

运行VB时，需要先打开SolidWorks一个新零件窗口，然后

运行VB,点击界面按钮即可

运行结果：

完美实现对应功能。