VB桌面圖標(biāo)氣泡怎么做？

這個(gè)……好像不是windows氣泡，是程序窗體。需要后臺(tái)進(jìn)程觸發(fā)該窗體的發(fā)生。

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶，將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名注冊(cè)、網(wǎng)頁(yè)空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、丹徒網(wǎng)站維護(hù)、網(wǎng)站推廣。

如果要做windows氣泡，那比較簡(jiǎn)單。windows氣泡比如說(shuō)插入新硬件的提醒等。

我記得VB里有一個(gè)控件可以做進(jìn)程，就是托盤(pán)顯示圖標(biāo)的那個(gè)控件可以做，但我不會(huì)用那個(gè)控件。

若是windows氣泡，我查得一個(gè)方案，你自己看看吧【注意，代碼中有行數(shù)標(biāo)號(hào)】

01 VERSION 5.00

02 Begin VB.Form Form1

03 Caption = "Form1"

04 ClientHeight = 3120

05 ClientLeft = 60

06 ClientTop = 420

07 ClientWidth = 4680

08 LinkTopic = "Form1"

09 ScaleHeight = 3120

10 ScaleWidth = 4680

11 StartUpPosition = 3 '窗口缺省

12 End

13 Attribute VB_Name = "Form1"

14 Attribute VB_GlobalNameSpace = False

15 Attribute VB_Creatable = False

16 Attribute VB_PredeclaredId = True

17 Attribute VB_Exposed = False

18 Option Explicit

19 '置前

20 Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X AsLong, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

21 '獲取鼠標(biāo)坐標(biāo)

22 Private Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long

23 Private Type POINTAPI

24 X As Long

25 Y As Long

26 End Type

27 '添加托盤(pán)圖標(biāo)

28 Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

29 Const NIM_ADD = H0

30 Const NIM_MODIFY = H1

31 Const NIM_DELETE = H2

32 Const NIIF_GUID = H4

33 Const WM_MOUSEMOVE = H200

34 Const WM_RBUTTONUP = H205

35 Private Type NOTIFYICONDATA

36 cbSize As Long

37 hWnd As Long

38 uID As Long

39 uFlags As Long

40 uCallbackMessage As Long

41 hIcon As Long

42 szTip As String * 128

43 dwState As Long

44 dwStateMask As Long

45 szInfo As String * 256

46 Timeout As Long

47 szInfoTitle As String * 64

48 dwInfoFlags As Long

49 End Type

50 Private TuoPan As NOTIFYICONDATA

51 Private Sub Form_Load()

52 SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, H10 Or H40 Or H2 Or H1 '置前

53 '添加托盤(pán)圖標(biāo)

54 With TuoPan

55 .cbSize = Len(TuoPan)

56 .hWnd = Me.hWnd

57 .uID = 0

58 .uCallbackMessage = WM_MOUSEMOVE

59 .uFlags = H2 Or H10 Or H1 Or H4

60 .hIcon = Me.Icon

61 .szTip = "小眼軟件" vbNullChar

62 End With

63 Shell_NotifyIcon NIM_ADD, TuoPan

64 DoEvents

65 '氣泡彈窗

66 TuoPan.szInfoTitle = "小眼軟件" Chr(0) '標(biāo)題

67 TuoPan.szInfo = "右擊這里可以彈出菜單?。?！" Chr(0) '內(nèi)容

68 TuoPan.dwInfoFlags = NIIF_GUID '氣泡圖標(biāo)

69 Shell_NotifyIcon NIM_MODIFY, TuoPan

70

71 '讓菜單窗體監(jiān)聽(tīng)系統(tǒng)消息

72 PreWinProc = GetWindowLong(MenuForm.hWnd, GWL_WNDPROC)

73 SetWindowLong MenuForm.hWnd, GWL_WNDPROC, AddressOf WndProc

74 End Sub

75 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

76 Dim lMsg As Single

77 lMsg = X / Screen.TwipsPerPixelX

78 If lMsg = WM_RBUTTONUP Then

79 Dim MenuLT As POINTAPI

80 GetCursorPos MenuLT

81 MenuForm.Move MenuLT.X * 15 - MenuForm.Width, MenuLT.Y * 15 - MenuForm.Height

82 MenuForm.Show , Me

83 End If

84 End Sub

85 Private Sub Form_Unload(Cancel As Integer)

86 Shell_NotifyIcon NIM_DELETE, TuoPan '刪除托盤(pán)圖標(biāo)

87 SetWindowLong Me.hWnd, GWL_WNDPROC, PreWinProc '卸載監(jiān)聽(tīng)

88 End

89 End Sub

原文地址：

msgbox ““

VB.NET 實(shí)現(xiàn)氣泡提示效果

Dim toolTip1 As New ToolTip()

toolTip1.AutoPopDelay = 5000 '顯示停留5秒

toolTip1.InitialDelay = 1000 '1秒后顯示

toolTip1.ReshowDelay = 500 '從一個(gè)控件移到另一個(gè)控件0.5秒后顯示

toolTip1.ShowAlways = True '在窗口不活動(dòng)時(shí)也顯示

ToolTip1.SetToolTip(TextBox1, "提示內(nèi)容")

詳見(jiàn)：

VB超高難度的氣泡提示框怎么做？（見(jiàn)附圖）

裝.net以上版本，用tooltip控件，把tooltip的isballoon屬性=true就沒(méi)有難度了

VB.net 里怎么實(shí)現(xiàn)氣泡在窗體中隨機(jī)移動(dòng)？

可以建立一個(gè)方向向量用來(lái)存儲(chǔ)氣泡運(yùn)動(dòng)的方向（方向值每到一定時(shí)間隨機(jī)產(chǎn)生），再定義一個(gè)表示速度的變量（如果要的是均速運(yùn)動(dòng)速度值就不變，否則也可以隨機(jī)產(chǎn)生）。再用速度和方向值改變氣泡位置。

我可以做個(gè)例子（qq:359394386）,但分不能太低。

VB.net的窗體，能否通過(guò)配置控件屬性來(lái)設(shè)置鼠標(biāo)指針移動(dòng)到控件上出現(xiàn)的氣泡提示?

首先，你要找一個(gè)手型的圖標(biāo)文件(就是擴(kuò)展名為ico的文件)，然后用VB創(chuàng)建一個(gè)窗體，在窗體的屬性MouseIcon里面添加你準(zhǔn)備的ico文件，然后把屬性MousePoint的屬性值改成99-ccCustom，就可以了

求vb代碼 實(shí)現(xiàn)程序在系統(tǒng)托盤(pán)顯示圖標(biāo)和氣泡!!!!

Option Explicit Const MAX_TOOLTIP As Integer = 64 Const NIF_ICON = H2 '刪除圖標(biāo) Const NIF_MESSAGE = H1 Const NIF_TIP = H4 Const NIM_ADD = H0 '添加圖標(biāo)到任務(wù)欄提示區(qū) Const NIM_DELETE = H2 Const WM_MOUSEMOVE = H200 Const WM_LBUTTONDOWN = H201 Const WM_LBUTTONUP = H202 Const WM_LBUTTONDBLCLK = H203 Const WM_RBUTTONDOWN = H204 Const WM_RBUTTONUP = H205 Const WM_RBUTTONDBLCLK = H206 Const SW_RESTORE = 9 Const SW_HIDE = 0 Private 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 就是了

當(dāng)前題目：包含vb.net汽泡控件的詞條
標(biāo)題路徑：http://chinadenli.net/article36/dsgiipg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、網(wǎng)站設(shè)計(jì)公司、微信公眾號(hào)、靜態(tài)網(wǎng)站、網(wǎng)站建設(shè)、搜索引擎優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)