怎么在TOOLTIP里面换行哟
1个回答
展开全部
Private Sub Form_Load()
Dim x As String
Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\aaa.mdb"
Adodc1.RecordSource = "select * from HeroData"
Adodc1.Refresh
Set m_objTooltip = New CToolTip
With m_objTooltip
.Create Me.hwnd
.MaxWidth = 400 ' In Pixels
.VisibleTime = 2000 ' In Milliseconds, 2000 = 2 seconds
.DelayTime = 500 ' In Milliseconds
x = Adodc1.Recordset.Fields(4).Value
.AddControl Picture1, x
x = Adodc1.Recordset.Fields(5).Value
.AddControl Picture2, x
'...............
End With
Dim x As String
Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\aaa.mdb"
Adodc1.RecordSource = "select * from HeroData"
Adodc1.Refresh
Set m_objTooltip = New CToolTip
With m_objTooltip
.Create Me.hwnd
.MaxWidth = 400 ' In Pixels
.VisibleTime = 2000 ' In Milliseconds, 2000 = 2 seconds
.DelayTime = 500 ' In Milliseconds
x = Adodc1.Recordset.Fields(4).Value
.AddControl Picture1, x
x = Adodc1.Recordset.Fields(5).Value
.AddControl Picture2, x
'...............
End With
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
