包含仿qqvb.net的詞條

VB.NET中能否做一個像QQ那樣的聊天框，可以輸入文字和圖片？

第一個問題 qq聊天室 必須能 用vb都可以做

我們提供的服務(wù)有：成都做網(wǎng)站、網(wǎng)站設(shè)計、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、七星關(guān)區(qū)ssl等。為數(shù)千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的七星關(guān)區(qū)網(wǎng)站制作公司

第二個問題 vb.net插入數(shù)學(xué)公式 可以把這些公式封裝到一個類中，調(diào)用就是了

VB.NET中，如何動態(tài)創(chuàng)建非模態(tài)窗體，類似于QQ一樣，雙擊一個頭像會彈出一個窗口。

做一個窗體模板，假設(shè)是Form2

Dim x as New Form2

x.Show()

如果彈出窗口較多，x可以用動態(tài)數(shù)組替代

VB如何實(shí)現(xiàn)仿QQ消息盒子效果

終于寫完了，累死我了、

在窗體上添加一個Timer控件，interval的值設(shè)置為1000，也就是周期為1秒。

然后再添加一個Form2和一個模塊

form1中的代碼

'--------------------------------------------------------------------------------------------------------------------------------------

Option Explicit

Private Type POINTAPI

x As Long

y As Long

End Type

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

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Dim HJonny As POINTAPI, mForm As RECT

Private Sub Form_Load()

Me.Hide

Load Form2

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Timer1.Enabled = True

End Sub

Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)

Cancel = True

End Sub

Private Sub Timer1_Timer()

Dim x, y

GetCursorPos HJonny

GetWindowRect Me.hwnd, mForm

x = HJonny.x

y = HJonny.y

If x mForm.Left And x mForm.Left + (mForm.Right - mForm.Left) And y mForm.Top And y mForm.Top + (mForm.Bottom - mForm.Top) Then

Else

Me.Hide

End If

End Sub

'----------------------------------------------------------------------------------------------------------------------------------------

form2中的代碼，首先在Form2的窗體上右鍵---菜單編輯器，在標(biāo)題處輸入 文件(F) ，名稱處輸入 Files ，再在底下的列表框中第一行"文件(F)"這個的下面，也就是第二行，點(diǎn)一下，會選中一行空白，再點(diǎn)一下上面的黑的沖著右面的小箭頭，然后再在上面標(biāo)題處輸入 退出(E) 名稱處輸入 Exit 然后點(diǎn)確定。代碼如下！

'--------------------------------------------------------------------------------------------------------------------------------------

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SYSCOMMAND = H112

Private Const SC_RESTORE = HF120

Private LastState As Integer '保留原窗口狀態(tài)

'---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 標(biāo)識符之一----------

Private Const NIM_ADD = H0 '在任務(wù)欄中增加一個圖標(biāo)

Private Const NIM_DELETE = H2 '刪除任務(wù)欄中的一個圖標(biāo)

Private Const NIM_MODIFY = H1 '修改任務(wù)欄中個圖標(biāo)信息

Private Const NIF_MESSAGE = H1 'NOTIFYICONDATA結(jié)構(gòu)中uFlags的控制信息

Private Const NIF_ICON = H2

Private Const NIF_TIP = H4

Private Const WM_MOUSEMOVE = H200 '當(dāng)鼠標(biāo)指針移至圖標(biāo)上

Private Const WM_LBUTTONUP = H202

Private Const WM_RBUTTONUP = H205

Private Type NOTIFYICONDATA

cbSize As Long '該數(shù)據(jù)結(jié)構(gòu)的大小

hwnd As Long '處理任務(wù)欄中圖標(biāo)的窗口句柄

uID As Long '定義的任務(wù)欄中圖標(biāo)的標(biāo)識

uFlags As Long '任務(wù)欄圖標(biāo)功能控制，可以是以下值的組合（一般全包括）

'NIF_MESSAGE 表示發(fā)送控制消息；

'NIF_ICON表示顯示控制欄中的圖標(biāo)；

'NIF_TIP表示任務(wù)欄中的圖標(biāo)有動態(tài)提示。

uCallbackMessage As Long '任務(wù)欄圖標(biāo)通過它與用戶程序交換消息，處理該消息的窗口由hWnd決定

hIcon As Long '任務(wù)欄中的圖標(biāo)的控制句柄

szTip As String * 64 '圖標(biāo)的提示信息

End Type

Dim myData As NOTIFYICONDATA

Private Sub Exit_Click()

Shell_NotifyIcon NIM_DELETE, myData

End

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim Msg As Long

Msg = x \ Screen.TwipsPerPixelX

Select Case Msg

Case H202 '左鍵

Form1.Show

Case H205 '右鍵

PopupMenu Form2.Files

End Select

Call Form_ShowUp

End Sub

Private Sub Form_Load()

With myData

.cbSize = Len(myData)

.hwnd = Me.hwnd

.uID = 0

.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP

.uCallbackMessage = WM_MOUSEMOVE

.hIcon = Form1.Icon.Handle '默認(rèn)為窗口圖標(biāo)

.szTip = "HJonny-絕對↘0℃" vbNullChar

End With

Shell_NotifyIcon NIM_ADD, myData

End Sub

Private Sub Form_Unload(Cancel As Integer)

Shell_NotifyIcon NIM_DELETE, myData '窗口卸載時，將狀態(tài)欄中的圖標(biāo)一同卸載

End Sub

'--------------------------------------------------------------------------------------------------------------------------------------

模塊中的代碼

Option Explicit

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Const SPI_GETWORKAREA = 48

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Function GetTaskbarHeight() As Integer

Dim lRes As Long

Dim rectVal As RECT

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)

GetTaskbarHeight = (Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom

End Function

Public Sub Form_ShowUp()

Form1.Move Screen.Width - Form1.Width, Screen.Height - Form1.Height - (GetTaskbarHeight() * 15)

Form1.Show

End Sub

好了，希望能對你有幫助，自己寫的，代碼不太工整，見笑。。

VB怎樣仿QQ的截取影片圖像

Option Explicit

Private Declare Sub keybd_event Lib "user32" _

(ByVal bVk As Byte, _

ByVal bScan As Byte, _

ByVal dwFlags As Long, _

ByVal dwExtraInfo As Long)

截全屏的:

Private Sub Form_Click()

keybd_event vbKeySnapshot, 0, 0, 0

DoEvents

Me.Picture = Clipboard.GetData(vbCFBitmap)

End Sub

VB.net什么控件能實(shí)現(xiàn)像QQ表情欄那樣存放連續(xù)圖片

VB.NET標(biāo)準(zhǔn)控件庫中是沒有這個控件的，不過既然提供了picturebox，類似你說的這樣的可以連續(xù)存放多個圖片的控件是可以通過代碼動態(tài)添加控件來實(shí)現(xiàn)，也可以通過vb.net中的GDI+函數(shù)代碼編程實(shí)現(xiàn)。

VB NET,像QQ登錄界面、酷狗那種窗體是怎么做出來的？

這個問題很簡單，但是，要自己去寫事件，不然，窗體就是一個死窗體了

本文標(biāo)題：包含仿qqvb.net的詞條
本文鏈接：http://muchs.cn/article36/hheipg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供虛擬主機(jī)、靜態(tài)網(wǎng)站、營銷型網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、品牌網(wǎng)站制作、微信小程序

廣告

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