UC知道按钮字数出现问题
来源：百度知道 编辑：UC知道 时间：2024/06/23 08:24:22
为什么按钮字数少了？
比如我按钮名字为：QQ宠物，结果出来的只显示QQ宠
QQ交友，只显示QQ交。。。
已经拉长很多了。
代码是
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command_Click()
ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1
End Sub
Private Sub Command1_Click()
congwu.Visible = True
End Sub
Private Sub Command10_Click()
kongjian.Visible = True
End Sub
………………
比如我按钮名字为：QQ宠物，结果出来的只显示QQ宠
QQ交友，只显示QQ交。。。
已经拉长很多了。
代码是
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command_Click()
ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1
End Sub
Private Sub Command1_Click()
congwu.Visible = True
End Sub
Private Sub Command10_Click()
kongjian.Visible = True
End Sub
………………
你八成是在代码里修改按钮~的caption属性 然后用函数取前三个字符 所以才有这样的结果
command1.caption="QQ宠物"
你给的代码只是调用API函数ShellExecute 打开TEXT输入的QQ号码的聊天对话框而已
Private Sub Command1_Click()
congwu.Visible = True
End Sub
Private Sub Command10_Click()
kongjian.Visible = True
End Sub
这个2个只是隐藏控件而已。。
你是不是还有其他代码。没贴出来。如果你程序仅仅就这3个按钮 和这些代码的话~你的按钮有拉得有足够长 是不会出现 按钮标题只出现3个字的情况。除非你只写3个字而已。和
可能是按钮的名字太长了,它显示不了吧,你可以把按钮拖大一点.
同意楼上意见，你把按钮控件的长度拉长一点试试