189 8069 5689
1:从工具箱里拖一个ToolTip控件到窗体上，成为ToolTip1
成都创新互联-专业网站定制、快速模板网站建设、高性价比石台网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式石台网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖石台地区。费用合理售后完善，10多年实体公司更值得信赖。
2:选择你要添加提示的Button1，此时Button1的属性中，最下面就多了1个ToolTip1上的ToolTip属性了，就在那里编辑文字
3:ToolTip1可以编辑tip提示的各个关键属性，一个ToolTip1能满足控制多个控件的tip
祝进步!
你不用程序的情况能不能用TAB切换焦点。如果这样不行的话你用程序控件是没用的。
或都直接对第二个编辑框发送消息。
当然可以
例如，你有一个方法，假如名叫Sort，没有参数，这样呢，就在
Sub Sort()的上面输入三个单引号（就是注释的那个），就会出现xml注释：
''' summary
'''
''' /summary
Sub Sort()
End Sub
在summary下面一行写“排序数组”（没有引号），这时，调用方法的时候，就有像你图上的那样子的代码提示
你这个口令令牌错误啊，需要在你的公众号的后台去获取你的口令令牌地址填写上去才行。另外你的url服务器地址也要填写正确，不能有错误，这样配置出来的信息才正确。
可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现
方法一，利用msgbox：
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二，利用窗体实现：
’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub