简单图形按钮

 有时候我们需要在一个按钮上加上各种各样的图标!比如向左的三角箭头,向下的三角箭头等,而这些符号在OFFIC里面都能直接插入的符号,也就是说在字符库里面本来就存在的符号,好了,下面开始吧!

其实很简单,今天一个同事问我有没有好的方法,我记得以前就直接设置CAPTION就可以的，但是就是不知道如何设置........以前的技巧都忘记了.

在设计模式下_把COMMAND 的FONT字体 设置为 WINDING3 然后再把COMMAND的CAPTION 兰里面输入T,你将看到你的COMMAND 的图表已经变成左三角箭头了!输入U 就是右箭头了!你可以试探一下,定能发现很多很多OFFIC里面能看到的字符

你还可以修改FONT字体 等到更多,更丰富的符号,不仅是COMMAND,其他显示字符的控件一样适用哦!

Option Explicit
Dim strFont() As String
Dim strChar() As String
Dim intFont_Count As Integer

Private Sub Command2_Click()
   Dim intLoop As Integer
   Dim strTemp As String
  
   Me.Text1.Text = vbNullString
   intFont_Count = intFont_Count + 1
   Text1.Font.Name = strFont(intFont_Count)
   For intLoop = 0 To 127
       Text1.Text = Text1.Text & Chr(intLoop)
   Next

End Sub

Private Sub Form_Load()
  Dim intX As Integer
  ReDim strFont(Screen.FontCount - 1) As String
  ReDim strChar(Screen.FontCount - 1) As String
  For intX = 0 To Screen.FontCount - 1
     strFont(intX) = Screen.FontS(intX)
  Next
  'Me.Text1.MultiLine = True
  intFont_Count = -1
End Sub