VB.NET命令窗口

Vb不是人機對話窗口，而是編程工具，可以編寫代碼進行調試執行或者生成可執行文件。

創新互聯專注于清河企業網站建設,成都響應式網站建設,商城網站建設。清河網站建設公司,為清河等地區提供建站服務。全流程定制網站制作，專業設計，全程項目跟蹤，創新互聯專業和態度為您提供的服務

用Visual Studio .Net開發"Hello World!"程序：

我們知道"Hello World"一般是命令行程序，而這種程序在Visual Studio .Net中被稱為"控制臺程序"。下面是Visual Studio .Net編寫控制臺"Hello World！"程序的具體步驟：

（1）、啟動Visual Studio .Net。

（2）、選擇菜單【文件】|【新建】|【項目】后，彈出【新建項目】對話框。

（3）、將【項目類型】設置為【Visual Basic項目】。

（4）、將【模板】設置為【控制臺應用程序】。

（5）、在【名稱】文本框中輸入【Hello World】。

（6）、在【位置】的文本框中輸入【E:VS.NET項目】，然后單擊【確定】按鈕，則Visual Studio .Net會按照上面設定的參數創建一個控制臺應用程序項目，具體如圖01所示。

圖01："Hello World"控制臺程序的【新建項目】界面

（7）、在【解決方案資源管理器】窗口中，雙擊Module1.vb文件，進入Module1.vb文件的編輯界面。

（8）、Visual Studio .Net已經為產生Main()函數。在系統創建的Main()函數中加入下面一行代碼就可以了：

Console.WriteLine ("Hello World!")

（9）、選擇【文件】|【保存Module1.vb】菜單或者按快捷鍵Ctrl＋S，保存所做的修改。

（10）、此時單擊快捷鍵Ctrl＋F5運行程序就可以得到圖02所示運行界面：

vb.net中如何播放聲音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的聲音文件的路徑

VB 怎么復制文件至剪切板？

樓主的代碼看起來像是vbs，仔細調閱了很多資料，在vbs中無法實現復制文件到剪切板的功能。不過在vb6中是可以實現的，需要依靠一些api函數來完成工作。

建立一個按鈕Command1，以下范例是將"C:\a.txt"復制到剪切板，要測試請先建立這個文件。

Option Explicit

Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long

Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long

Private Const GMEM_MOVEABLE = H2

Private Const GMEM_ZEROINIT = H40

Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long

Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long

Private Const CF_HDROP = HF

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Type POINTAPI

X As Long

Y As Long

End Type

Private Type DROPFILES

pFiles As Long

pT As POINTAPI

fNC As Long

fWide As Long

End Type

Private Sub Command1_Click()

Dim FileName As String

FileName = "C:\a.txt"

If Dir(FileName) = "" Then Exit Sub

FileName = FileName vbNullChar vbNullChar

Call FileToClipboard(FileName)

End Sub

Private Sub FileToClipboard(ByVal FileName As String)

Dim dFiles As DROPFILES

Dim hMem As Long, MemPtr As Long, Len1 As Long, Len2 As Long

If OpenClipboard(Me.hWnd) = 0 Then Exit Sub

Call EmptyClipboard

Len1 = Len(dFiles)

Len2 = LenB(StrConv(FileName, vbFromUnicode))

hMem = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len1 + Len2)

MemPtr = GlobalLock(hMem)

dFiles.pFiles = Len1

Call CopyMemory(ByVal MemPtr, dFiles, Len1)

Call CopyMemory(ByVal (MemPtr + Len1), ByVal FileName, Len2)

Call GlobalUnlock(hMem)

Call SetClipboardData(CF_HDROP, hMem)

Call CloseClipboard

End Sub

在vb.net中怎么調用自定義類？

代碼已測試。

一、測試需要的INI文件。名稱為“setinfo.ini”，存放路徑為你解決方案里“Bin“文件夾的”Debug“文件夾里。

內容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的類。新建一個類，類中內容為：

Public?Class?Class1

Public?Declare?Function?GetPrivateProfileString?Lib?"kernel32"?Alias?"GetPrivateProfileStringA"?_

(?_

ByVal?lpApplicationName?As?String,?_

ByVal?lpKeyName?As?String,?_

ByVal?lpDefault?As?String,?_

ByVal?lpReturnedString?As?String,?_

ByVal?nSize?As?Int32,?_

ByVal?lpFileName?As?String?_

)?As?Int32

End?Class

三、界面代碼：

Imports?System.IO?'for?path

Public?Class?Form1

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

getINI()

End?Sub

Private?Sub?getINI()

Dim?iniclass?As?New?Class1?'

Dim?myBf?As?String?'get?set_info?開辟存儲的內存

myBf?=?New?String(CChar(""),?256)

Dim?myFN?As?String?'配置文件的文件路徑

myFN?=?Path.Combine(My.Application.Info.DirectoryPath,?"setinfo.ini")

Dim?myAN?As?String?'Application_NAME,也是Section名稱

myAN?=?Me.TextBox1.Text

Dim?myKN?As?String?'KEY_NAME,關鍵字名稱

myKN?=?Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN,?myKN,?"",?myBf,?myBf.Length,?myFN)?'調用讀取INI文件的操作

TextBox3.Text?=?Microsoft.VisualBasic.Left(myBf,?InStr(myBf,?Chr(0))?-?1)?'截取有用部分,有必要

End?Sub

End?Class

四、測試截圖如下

網頁名稱：關于aliasvb.net的信息
文章出自：http://m.2m8n56k.cn/article8/doedcip.html

成都網站建設公司_創新互聯，為您提供服務器托管、網站設計、網站營銷、企業網站制作、App開發、網站維護

廣告

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