vb.net做一個(gè)程序，求教

1，窗體上使用容器控件比如：Panel，在容器控件里添加文本框，用來(lái)顯示滾動(dòng)的號(hào)碼。

成都創(chuàng)新互聯(lián)成立于2013年，我們提供高端重慶網(wǎng)站建設(shè)公司、成都網(wǎng)站制作公司、成都網(wǎng)站設(shè)計(jì)、網(wǎng)站定制、成都營(yíng)銷網(wǎng)站建設(shè)、小程序開(kāi)發(fā)、微信公眾號(hào)開(kāi)發(fā)、成都網(wǎng)站推廣服務(wù)，提供專業(yè)營(yíng)銷思路、內(nèi)容策劃、視覺(jué)設(shè)計(jì)、程序開(kāi)發(fā)來(lái)完成項(xiàng)目落地，為OPP膠袋企業(yè)提供源源不斷的流量和訂單咨詢。

2，添加一個(gè)Timer控件，用來(lái)不斷改變上述文本框的Top屬性，實(shí)現(xiàn)不斷向上滾動(dòng)的動(dòng)態(tài)效果。

3，使用系統(tǒng)的隨機(jī)函數(shù)，生成所想要的適當(dāng)位數(shù)的隨機(jī)數(shù)，單擊按鈕，停止?jié)L動(dòng)，顯示隨機(jī)數(shù)。

4，用數(shù)組保存產(chǎn)生的隨機(jī)數(shù)，再次停止，與已經(jīng)產(chǎn)生的保存在數(shù)組里的隨機(jī)進(jìn)行比較，如果重復(fù)，就重新生成隨機(jī)數(shù)，直到不重復(fù)。

編寫一個(gè)VB.NET程序

Private Sub Form_Click()

Text1.Text = 8 * 3 * 6 \ 2

Text2.Text = 7 2 Or 4 9

End Sub

Private Sub Form_Load()

Label1.Caption = "8*3*6\2"

Label2.Caption = "72or49"

Text1.Text = ""

Text2.Text = ""

End Sub

只舉了1和7其他的可以類比

vb.net是什么

VB.net是微軟最新平臺(tái)技術(shù)，是.netframeworkSDK的一種語(yǔ)言。VB.net和VC#.net在功能上沒(méi)有區(qū)別。編譯以后生成的可執(zhí)行文件被稱為Assembly，即

程序集

。

VB.net 程序編寫

Function?ULCase(ByVal?value?As?String)?As?String

Dim?s?As?String?=?""

For?Each?i?As?Char?In?value

s?=?IIf(Char.IsLower(i),?Char.ToUpper(i),?Char.ToLower(i))

Next

Return?s

End?Function

textbox1.text=ULCase(textbox1.text)

就行了.類似樓上,用的內(nèi)置方法判斷大小寫

2.

能得到數(shù)據(jù)的方法 常用 InputBox ?,TextBox

inputBox 用法

Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String

功能: 在對(duì)話框中顯示提示，等待用戶輸入文本或單擊按鈕，然后返回包含文本框內(nèi)容的字符串。

參數(shù):

Prompt: 必選的 String 表達(dá)式，作為消息顯示在對(duì)話框中。Prompt 的最大長(zhǎng)度大約為 1024 個(gè)字符，具體取決于所用字符的寬度。如果 Prompt 包含多行內(nèi)容，則可以在每行之間使用回車符 (Chr(13))、換行符 (Chr(10)) 或回車/換行符組合 (Chr(13) Chr(10)) 來(lái)分隔各行。

Title: 可選。顯示在對(duì)話框標(biāo)題欄中的 String 表達(dá)式。如果省略 Title，則標(biāo)題欄中顯示應(yīng)用程序名稱。

DefaultResponse: 可選的 String 表達(dá)式。如果未提供其他輸入，則作為默認(rèn)響應(yīng)顯示在文本框中。如果省略 DefaultResponse，則顯示的文本框?yàn)榭铡?/p>

XPos: 可選。數(shù)值表達(dá)式，指定屏幕左邊緣與對(duì)話框左邊緣之間的距離（以緹為單位）。如果省略 XPos，則對(duì)話框水平居中。

YPos: 可選。數(shù)值表達(dá)式，指定屏幕頂部與對(duì)話框上邊緣之間的距離（以緹為單位）。如果省略 YPos，則對(duì)話框垂直定位在屏幕向下大約三分之一處。

返回值:

在對(duì)話框中顯示提示，等待用戶輸入文本或單擊按鈕，然后返回包含文本框內(nèi)容的字符串。

代碼:

Dim?KC()?As?String?=?{"語(yǔ)文",?"數(shù)學(xué)",?"英語(yǔ)",?"物理",?"化學(xué)"}

Dim?MyTable?As?New?Hashtable

For?Each?i?As?String?In?KC

MyTable.Add(i,?Val(InputBox("請(qǐng)輸入"""??i??"""?的成績(jī):",?"成績(jī)輸入",?"0")))

Next

Dim?sum?As?Single

For?Each?i?As?DictionaryEntry?In?MyTable

sum?+=?i.Value

Next

Dim?Pf?As?String?=?IIf(sum??450?OrElse?_

(MyTable(KC(0))??95?AndAlso?MyTable(KC(1))??95?AndAlso?MyTable(KC(2))??95?AndAlso?MyTable(KC(3))??80?AndAlso?MyTable(KC(4))??80)?OrElse?_

(MyTable(KC(0))??85?AndAlso?MyTable(KC(1))??85?AndAlso?MyTable(KC(2))??85?AndAlso?MyTable(KC(3))??85?AndAlso?MyTable(KC(4))??85),?"優(yōu)秀",?"可以")

MsgBox(Pf)

VB.net窗體程序如何讓cmd調(diào)用？

VB.NET 里面會(huì)有一個(gè)main方法表示函數(shù)的入口

main方法的參數(shù)就是命令行傳給它的

shutdown.exe能直接調(diào)用是因?yàn)槟愕沫h(huán)境變量有C盤的windows目錄

你只要在你程序的輸出目錄(一般為bin)里面打開(kāi)命令行輸入程序名稱.exe就可以直接執(zhí)行你的窗體

如果你要調(diào)試輸入命令的效果,你打開(kāi)你項(xiàng)目的屬性,找到調(diào)試?yán)锩娴拿钚袇?shù),在里面輸入測(cè)試參數(shù)就能在你main函數(shù)里面看到結(jié)果了

那如果你想打開(kāi)任何命令行都可以執(zhí)行你的窗體程序,那你把你程序的安裝目錄設(shè)置為環(huán)境變量,這樣就可以直接執(zhí)行這個(gè)命令了

vb net只運(yùn)行一個(gè)程序

方法一：通過(guò)Diagnostics.Process.GetProcessesByName函數(shù)來(lái)檢測(cè)程序是否已經(jīng)啟動(dòng)

Imports System.Windows.Forms

Module Module1

Sub Main()

'檢測(cè)多重啟動(dòng)

If Diagnostics.Process.GetProcessesByName( _

Diagnostics.Process.GetCurrentProcess.ProcessName).Length 1 Then

MessageBox.Show("已經(jīng)一個(gè)實(shí)例的本程序正在運(yùn)行。")

Return

End If

Application.Run(New Form())

End Sub

End Module

不過(guò)這個(gè)方法有個(gè)缺點(diǎn)，如果用戶改了下exe的名字就檢測(cè)不到了，所以更好的方法如下

方法2：使用Mutex

Imports System.Windows.Forms

Module Module1

Sub Main()

Dim createdNew As Boolean

' 創(chuàng)建mutex

Dim mutex As System.Threading.Mutex = _

New System.Threading.Mutex(True, "YourAppName", createdNew)

If createdNew = False Then

MessageBox.Show("已經(jīng)一個(gè)實(shí)例的本程序正在運(yùn)行。")

Return

End If

Application.Run(New Form())

' 釋放mutex

mutex.ReleaseMutex()

End Sub

End Module

名稱欄目：vbnet程序,vbnet程序設(shè)計(jì)第二版清華大學(xué)出版社
文章轉(zhuǎn)載：http://chinadenli.net/article44/hsgeee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、網(wǎng)站設(shè)計(jì)、小程序開(kāi)發(fā)、外貿(mào)建站、網(wǎng)站收錄、網(wǎng)站制作

廣告

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