VB.net的快捷鍵

1． F12：轉到定義；Shift+F12：轉到引用

創新互聯公司為客戶提供專業的成都網站建設、做網站、程序、域名、空間一條龍服務，提供基于WEB的系統開發. 服務項目涵蓋了網頁設計、網站程序開發、WEB系統開發、微信二次開發、手機網站制作等網站方面業務。

2． F5：啟動；Ctrl+F5：開始執行（不調試）；Shift+F5：停止調試

3． F7：查看代碼；Shift+F7：查看視圖設計器

4． Ctrl+Alt+L：解決方案資源管理器

5． Ctrl+Alt+J：對象瀏覽器

6． F4：顯示屬性窗口

7． Ctrl+Alt+X：工具箱

8． Ctrl+Alt+C類視圖

9． Alt+Enter：查看屬性

10．F10：逐過程調試

11．F11：逐語句調試

12．Ctrl+B：新斷點

13．Ctrl+Shift+F9：清除所有斷點

14．Ctrl+Shift+B生成解決方案

15．Shift+Alt+Enter：全屏

16．大綱顯示：Ctrl+M, Ctrl+M：切換大綱顯示展開；Ctrl+M, Ctrl+L：切換所有大綱顯示；Ctrl+M,Crtl+P停止大綱顯示；Ctrl+M, Ctrl+O：折疊到定義

17．智能感知：Ctrl＋J：列出成員；Ctrl+Shift+空格：參數信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭頭鍵：完成單詞

vb.net 查詢數據庫中一字段中二個字符中間的值

DataTable dt;//假設 dt的第一列存儲的就是這個str1_1，str2_1，str3_1，str4_1,則

foreach(DataRow dr in dt.Rows)

{

String s=dr[0].ToString();

String[] strs=s.split('_');//得到 str1,1 形式的數組(str2,1 str3,1 str4 ,1 )

String s2=strs[0];//取數組第一個，如 str1,str2,str3,str4 等

String[] strs2=s2.split('r');//得到st,1形式的數字

String 結果=strs2[1];//取第一個，得到如 1,2,3,4等結果就是lz需要的

}

用VB.NET 怎么編映射網絡磁盤

本來可以用簡單的dos命令的，但是影射成功與否返回不理想，建議用API，見下面

Module?LocalNetConnect'模塊,直接復制即可

Public?Declare?Function?WNetAddConnection2?Lib?"mpr.dll"?Alias?"WNetAddConnection2A"?(ByRef?lpNetResource?As?NETRESOURCE,?ByVal?lpPassword?As?String,?ByVal?lpUserName?As?String,?ByVal?dwFlags?As?Integer)?As?Integer

Public?Declare?Function?WNetCancelConnection2?Lib?"mpr.dll"?Alias?"WNetCancelConnection2A"?(ByVal?lpName?As?String,?ByVal?dwFlags?As?Integer,?ByVal?fForce?As?Integer)?As?Integer

Public?Structure?NETRESOURCE

Dim?dwScope?As?Integer

Dim?dwType?As?Integer

Dim?dwDisplayType?As?Integer

Dim?dwUsage?As?Integer

Dim?lpLocalName?As?String

Dim?lpRemoteName?As?String

Dim?lpComment?As?String

Dim?lpProvider?As?String

End?Structure

Public?Function?netconnect(ByVal?localDrive?As?String,?ByVal?sharePath?As?String,?ByVal?userName?As?String,?ByVal?UserPassword?As?String)?As?Boolean

Dim?NetR?As?New?NETRESOURCE

Dim?ErrInfo?As?Integer

NetR.dwScope?=?2

NetR.dwType?=?1

NetR.dwDisplayType?=?3

NetR.dwUsage?=?1

'設置驅動器

NetR.lpLocalName?=?localDrive

'設置遠程端口名字

NetR.lpRemoteName?=?sharePath

'設置連接

ErrInfo?=?WNetAddConnection2(NetR,?UserPassword,?userName,?1)

If?ErrInfo?=?0?Then

Return?True

Else

Return?False

End?If

End?Function

Public?Function?netdisconnect(ByVal?localDrive?As?String)?As?Boolean

Dim?ErrInfo?As?Integer

ErrInfo?=?WNetCancelConnection2(localDrive,?1,?False)

If?ErrInfo?=?0?Then

Return?True

Else

Return?False

End?If

End?Function

End?Module

‘調用

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

'這里是映射調用，administrator為用戶名，根據實際用戶名

’如果將“Z:”設置為空就不會網絡盤映射但是已經和172.26.120.47聯機了（返回真時成立)。

If?netconnect("Z:",?"\\172.26.120.47\c$",?"administrator",?"局域網電腦實際密碼")?=?True?Then

MsgBox("success")

Else

MsgBox("Faile")

End?If

End?Sub

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click'這里是取消映射

If?netdisconnect("Z:")?=?True?Then

MsgBox("success")

Else

MsgBox("Faile")

End?If

End?Sub

vb.net中SendMessager的問題

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

改為

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

再試試，

可能你的聲明使用vb6。0 復制過來的，long 全部改成integer

當前題目：vb.netr VBNET如何打包
瀏覽地址：http://vcdvsql.cn/article30/dosdjso.html

成都網站建設公司_創新互聯，為您提供品牌網站制作、網站營銷、標簽優化、云服務器、建站公司、品牌網站建設

廣告

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