有时候我们需要在一个按钮上加上各种各样的图标!比如向左的三角箭头,向下的三角箭头等,而这些符号在OFFIC里面都能直接插入的符号,也就是说在字符库里面本来就存在的符号,好了,下面开始吧!
其实很简单,今天一个同事问我有没有好的方法,我记得以前就直接设置CAPTION就可以的，但是就是不知道如何设置........以前的技巧都忘记了.
在设计模式下_把COMMAND 的FONT字体 设置为 WINDING3 然后再把COMMAND的CAPTION 兰里面输入T,你将看到你的COMMAND 的图表已经变成左三角箭头了!输入U 就是右箭头了!你可以试探一下,定能发现很多很多OFFIC里面能看到的字符
你还可以修改FONT字体 等到更多,更丰富的符号,不仅是COMMAND,其他显示字符的控件一样适用哦!
Option ExplicitDim strFont() As StringDim strChar() As StringDim 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 = -1End Sub
