99热在线精品一区二区三区_国产伦精品一区二区三区女破破_亚洲一区二区三区无码_精品国产欧美日韩另类一区

請(qǐng)教這段VB6.0代碼翻譯為vb.net代碼，謝謝

'---------------------以下放在模塊中-----------------------

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),吳忠企業(yè)網(wǎng)站建設(shè),吳忠品牌網(wǎng)站建設(shè),網(wǎng)站定制,吳忠網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,吳忠網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

Private Const NO_ERROR = 0

Private Const INTERNET_OPTION_END_BROWSER_SESSION = 42

Private Const CSIDL_COOKIES = H21

Private Structure SHITEMID

Dim cb As Long

Dim abID As Byte

End Structure

Private Structure ITEMIDLIST

Dim mkid As SHITEMID

End Structure

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, ByVal pidl As ITEMIDLIST) As Long

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Long, ByVal dwBufferLength As Long) As Long

Private Function GetSpecialfolder(ByVal CSIDL As Long) As String

Dim r As Long

Dim IDL As ITEMIDLIST

'Get the special folder

Dim path As String

r = SHGetSpecialFolderLocation(100, CSIDL, IDL)

If r = NO_ERROR Then

'Create a buffer

path = Space$(512)

'Get the path from the IDList

r = SHGetPathFromIDList(IDL.mkid.cb, path$)

'Remove the unnecessary chr$(0)'s

GetSpecialfolder = Left$(path, InStr(path, Chr(0)) - 1)

Exit Function

End If

GetSpecialfolder = ""

End Function

Public Sub ISetOption()

Dim CookiesPath As String

CookiesPath = GetSpecialfolder(CSIDL_COOKIES)

InternetSetOption(0, INTERNET_OPTION_END_BROWSER_SESSION, 0, 0)

End Sub

'--------------------------模塊結(jié)束---------------------

'這樣調(diào)用

ISetOption()

vb.net里一個(gè)子程序可以用另一個(gè)子程序中的數(shù)據(jù)嗎

可以使用，因?yàn)閮蓚€(gè)子程序的數(shù)據(jù)都是互通的，而且可以相互的補(bǔ)充，你用了另外一個(gè)子程序的數(shù)據(jù)也不影響你原本的子程序，這都是相互的

求vb代碼 實(shí)現(xiàn)程序在系統(tǒng)托盤顯示圖標(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 就是了

vb編的一個(gè)小程序，如何讓他在點(diǎn)擊右上角關(guān)閉按鈕（就是那個(gè)叉號(hào)）時(shí)，在托盤 里繼續(xù)運(yùn)行？

VB6：

你可以在工程里多建一個(gè)窗體，操作的菜單寫在這里，不顯示9 OK了

當(dāng)你要的窗體關(guān)閉后 再+載托盤

VB.NET里直接9有Closing和Closed事件

以下9是托盤：

Dim OldWindowProc As Long

Dim TheForm As Form

Dim TheMenu As Menu

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 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 SetLayeredWindowAttributes Lib "user32" _

(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _

ByVal dwFlags As Long) As Long

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _

(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Type NOTIFYICONDATA

cbSize As Long

hwnd As Long

Uid As Long

UFlags As Long

UCallbackMessage As Long

HIcon As Long

SzTip As String * 64

End Type

Private TheData As NOTIFYICONDATA

Public Function NewWindowProc(ByVal hwnd As Long, ByVal Msg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long

If Msg = (H400 + 1001) Then

If lParam = H205 Then

FormM.SetFocus

TheForm.PopupMenu TheMenu

Exit Function

End If

End If

NewWindowProc = CallWindowProc(OldWindowProc, hwnd, Msg, wParam, lParam)

End Function

Public Sub AddToTray(frm As Form, mnu As Menu)

Set TheForm = frm

Set TheMenu = mnu

OldWindowProc = SetWindowLong(frm.hwnd, (-4), AddressOf NewWindowProc)

With TheData

.Uid = 0

.hwnd = frm.hwnd

.cbSize = Len(TheData)

.HIcon = frm.Icon.Handle

.UFlags = 2

.UCallbackMessage = (H400 + 1001)

.UFlags = .UFlags Or 1

.cbSize = Len(TheData)

End With

Shell_NotifyIcon 0, TheData

End Sub

Public Sub RemoveFromTray()

With TheData

.UFlags = 0

End With

Shell_NotifyIcon 2, TheData

SetWindowLong TheForm.hwnd, (-4), OldWindowProc

End Sub

Public Sub SetTrayTip(tip As String)

With TheData

.SzTip = tip vbNullChar

.UFlags = 4

End With

Shell_NotifyIcon 1, TheData

End Sub

vb.net執(zhí)行sqlserver中的存儲(chǔ)過程提示找不到

要解決這個(gè)問題，首先要確保存儲(chǔ)過程已經(jīng)在數(shù)據(jù)庫(kù)中創(chuàng)建。如果存儲(chǔ)過程已經(jīng)存在，請(qǐng)檢查您的Vb.Net代碼，確保您正確指定了存儲(chǔ)過程的名稱。此外，請(qǐng)確保您的Vb.Net代碼正確指定了數(shù)據(jù)庫(kù)的名稱，以及連接字符串中的用戶名和密碼是正確的。

名稱欄目：關(guān)于vb.nethicon的信息
當(dāng)前路徑：http://ef60e0e.cn/article/doscopd.html