VB 實現「顯示桌面」功能

2021-04-01 00:45:36 字數 1094 閱讀 5078

在窗體上建立乙個***mand1按鈕

private declare sub keybd_event lib "user32" (byval bvk as byte, byval bscan as byte, byval dwflags as long, byval dwextrainfo as long)

public enum enumaction

earesourcebrowser = 0

easearchfile = 1

eaminiwindows = 2

earunfile = 3

eastartmenu = 4

easleep = 5

eawindowshelp = 6

end enum

public sub doaction(eindex as enumaction)

dim vk_action as long

select case eindex

case 0: 'open resource browser

vk_action = &h45

case 1: 'search file

vk_action = &h46

case 2: 'mini windows

vk_action = &h4d

case 3: 'run

vk_action = &h52

case 4: 'start menu

vk_action = &h5b

case 5: 'sleep

vk_action = &h5e

case 6: 'open windows help

vk_action = &h70

end select

call keybd_event(vk_lwin, 0, 0, 0)

call keybd_event(vk_action, 0, 0, 0)

call keybd_event(vk_lwin, 0, keyeventf_keyup, 0)

end sub

private sub ***mand1_click()

doaction 2

end sub

Ubuntu只顯示桌面

sudo vim etc xrdp startwm.sh 在 etc x11 xsession 一行前面插入一行 echo gnome session session ubuntu 2d xsession 然後儲存退出。sudo service xrdp restart 然後再連線上去,一切ok.現...

android拍照時顯示桌面

在專案中呼叫照相機時會先顯示桌面,通過一點點的注釋 發現是在androidmainfeset.xml檔案中設定了 android theme android style theme.translucent.notitlebar 透明背景並無標題 解決方法參考 在style.xml中自定義主題 修改後...

linux 桌面usb滑鼠顯示 桌面收納整理神器

整理控不請自來強答。桌面整潔好看可以顯著地提公升我們的生活工作的幸福感,幹起活來特別有幹勁,而要讓桌面整潔好看,一些 桌面神器 就必不可少。下面幾個是我用過之後還留下來繼續用的桌面神器 桌面上需要用到的電子裝置不少,乙個方便好用高顏值的usb插座在解決充電器多的問題的同時,又可以為桌面增添不少顏值。...