我也不太明白你的意思
是不是说要做和开始菜单风格(有一个竖着的pic,代图标)一样的?
无法给你例程,代码太多了
而且为达到这样的目的,经常出现错误的
建议你使用第三方的控件,比如ActiveBar2 IconMenu等
是不是说要做和开始菜单风格(有一个竖着的pic,代图标)一样的?
无法给你例程,代码太多了
而且为达到这样的目的,经常出现错误的
建议你使用第三方的控件,比如ActiveBar2 IconMenu等
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2' Press the Ctrl-Esc key
keybd_event vbKeyControl, 0, 0, 0
keybd_event vbKeyEscape, 0, 0, 0
DoEvents' Release the two keys
keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
keybd_event vbKeyEscape, 0, KEYEVENTF_KEYUP, 0
DoEvents