|
阅读：1807回复：4
文本显示问题？
用drawtext在一个矩形框里显示文本，矩形是图形，不是作为图层，怎么设置字体大小
|
|
|
1楼#
发布于：2004-08-22 19:05
当矩形变化时，字体的范围超出了矩形范围，我的意思是象photoshop里面似的，字体可变宽、变窄。
|
|
|
2楼#
发布于：2004-08-22 19:03
还是不懂 |
|
|
3楼#
发布于：2004-08-20 12:09
Option Explicit Dim sym As New MapObjects2.Symbol Dim tsym As New MapObjects2.TextSymbol Dim ln As MapObjects2.Line Private Sub Form_Load() With sym .SymbolType = moLineSymbol .Color = moRed End With End Sub Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) If Not ln Is Nothing Then Map1.DrawShape ln, sym Map1.DrawText "Badda Bing", ln, tsym End If End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set ln = Map1.TrackLine Map1.Refresh End Sub |
|
|
|
4楼#
发布于：2004-08-20 11:54
能说具体点吗？
|
|
|