VB.NET命令窗口

Vb不是人機(jī)對話窗口，而是編程工具，可以編寫代碼進(jìn)行調(diào)試執(zhí)行或者生成可執(zhí)行文件。

創(chuàng)新互聯(lián)專注于清河企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè),商城網(wǎng)站建設(shè)。清河網(wǎng)站建設(shè)公司,為清河等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站制作，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

用Visual Studio .Net開發(fā)"Hello World!"程序：

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

（1）、啟動Visual Studio .Net。

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

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

（4）、將【模板】設(shè)置為【控制臺應(yīng)用程序】。

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

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

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

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

（8）、Visual Studio .Net已經(jīng)為產(chǎn)生Main()函數(shù)。在系統(tǒng)創(chuàng)建的Main()函數(shù)中加入下面一行代碼就可以了：

Console.WriteLine ("Hello World!")

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

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

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

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

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

VB 怎么復(fù)制文件至剪切板？

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

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

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中怎么調(diào)用自定義類？

代碼已測試。

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

內(nèi)容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

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

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?開辟存儲的內(nèi)存

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,關(guān)鍵字名稱

myKN?=?Me.TextBox2.Text

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

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

End?Sub

End?Class

四、測試截圖如下