vb按一个快捷键就写一段文字

在VB中，如何实现每单击按钮一次，窗体上就出现一段文字 谢谢了！~

在command控件,tooltiptext属性中写入你的提示内容则可。
或在代码中加一行：command1.tooltiptext=" 点击后转到下一题"。
鼠标放在按钮上，就显示文本内容。

使用API函数即可
代码如下：
窗体：
Option Explicit

Sub Form_Load()
Me.Hide
Dim ret As Long
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)
idHotKey = 1 'in the range &h0000 through &hBFFF
Modifiers = MOD_ALT
uVirtKey = vbKeyZ
ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
'取消Message的截取，而使之又只送往原来的Window Procedure
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
Call UnregisterHotKey(Me.hwnd, uVirtKey)
End Sub
模块：
Option Explicit

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long

Public Const WM_HOTKEY = &H312
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const GWL_WNDPROC = (-4)

Public preWinProc As Long
Public Modifiers As Long, uVirtKey As Long, idHotKey As Long

Private Type taLong
ll As Long
End Type
Private Type t2Int
lWord As Integer
hword As Integer
End Type

经测试成功！Form1窗体代码：

Private Sub Form_Load()
Call InitHotKey  '热键启动
End Sub

Private Sub InitHotKey()
OldwndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc)
Call CreateHotkey(1, vbKeyA, 1)   'Ctrl+1 *设置热键  1代表模块中的ID=1，vbKeyA（A的Ascii码），1代表Alt，2代表Ctrl
End Sub

'热键按下后的动作:
Public Sub SendStr()
Dim s As String
s = "准备发送的字符串"
SendKeys s
End Sub

Private Sub CreateHotkey(ID As Long, HK As Long, MK As Long)
Dim ReturnValue As Long
ReturnValue = RegisterHotKey(Me.hwnd, ID, MK, HK)
End Sub

Module1模块代码：

Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_Delete = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public nfIconData As NOTIFYICONDATA
Public Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * MAX_TOOLTIP
End Type

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal OldwndProc As Long, ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const GWL_WNDPROC = -4
Public OldwndProc As Long

Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal HotKeyID As Long, ByVal fsModifiers As Long, ByVal vKey As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal HotKeyID As Long) As Long

Public Const WM_HOTKEY = &H312
Public Const WM_NCDESTROY = &H82

Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const MOD_WIN = &H8

Public Function WindowProc(ByVal hwnd As Long, ByVal WindowMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case WindowMsg
    Case WM_HOTKEY
        If wParam = 1 Then '第一个热键ID=1
           Call Form1.SendStr  '按下热键后启动的窗体中的过程
        End If
End Select
WindowProc = CallWindowProc(OldwndProc, hwnd, WindowMsg, wParam, lParam)
End Function

---

南开区18316991483： vb按一个快捷键就写一段文字 - ？
宗政阅同新： 经测试成功!Form1窗体代码:Private Sub Form_Load() Call InitHotKey '热键启动 End Sub Private Sub InitHotKey() OldwndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc) Call CreateHotkey(1, vbKeyA, 1) 'Ctrl+1 ...

南开区18316991483： VB怎么实现单击一个键后自己显示文字? - ？
宗政阅同新： 一、在窗体上添加一个按钮和一个定时器控件 Dim a(1 To 3) Dim s As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() a(1) = ＂你＂: a(2) = ＂好＂: a(3) = ＂吗＂ Timer1.Interval = 3000 '三秒 ...

南开区18316991483： 如何在VB中输写这样的代码:文本框在每按一次按钮时就打出一行字来?？
宗政阅同新： Private Sub Command1_Click() Text1.Text = ＂请输入你要输入的数字＂ For i = 1 To 9 A = i + 1 Text1.Text = Text1.Text & A Next i End Sub 你改成这个试试 楼上的那位是没有将A转换为字符串,str(a)就好了

南开区18316991483： 编写一个VB代码 就是 点击按钮 在就文本里输出文字来 - ？
宗政阅同新： Private Sub Command1_Click() Text1.Text = ＂文本已输出＂ End Sub

南开区18316991483： 谁帮写个VB 鼠标左键双击既自动输入 一段字符 - ？
宗政阅同新： Private Sub Form_DblClick() Dim str As String str = ＂你好＂ Print (str) End Sub

南开区18316991483： vb如何点击按钮输入相应文字 - ？
宗政阅同新： 以第一个按钮为例,代码如下: Private Sub Command1_Click() Text1.Text = Text1.Text & Command1.Caption End Sub其中Command1.Caption,即Command按钮上显示的文本,如果是要显示其他内容,可将此部分替换成需要显示的内容.

南开区18316991483： VB 全局快捷键 按 小键盘 1 就 text1.text=“123”？
宗政阅同新： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'SendKeys ＂{vbKeyNumpad1}＂ If KeyCode = vbKeyNumpad1 Then Text1.Text = ＂123＂ End If End Sub

南开区18316991483： vb编写快捷键求教(100) - ？
宗政阅同新： 按键 代码 SHIFT + CTRL ^ ALT % SendKeys ＂%S＂就可以了,不必加＂＂ 可以先把你要发送的字符粘贴到剪切板上,然后发送 Ctrl + V ,代码如下: Clipboard.Clear Clipboard.SetText ＂字符串＂ Debug.Print TypeName(Screen.ActiveControl...

南开区18316991483： vb每按一次enter键text就添加一行字符 - ？
宗政阅同新： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1 = Text1 & vbCrLf & ＂abc＂ End Sub text1设为多行模式

南开区18316991483： 用VB编写程序,按下快捷键时执行操作 - ？
宗政阅同新： 使用API函数即可 代码如下:窗体:Option Explicit Sub Form_Load() Me.Hide Dim ret As Long preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC) ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc) idHotKey = ...