VB.NET的新麻煩！??！

首先你定義了兩個(gè)變量x%，y% 其默認(rèn)值為0

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

然后執(zhí)行條件判斷滿足第一個(gè)條件x1000 ,就將x賦值給y 此時(shí)x=0，y=0

跳出判斷，顯示兩個(gè)0。

我引用他的話， 后面就是你沒(méi)有給他賦值。 差一點(diǎn)代碼。

dim x% ,y%

'可以加一個(gè)檢測(cè)textbox1.text 里只能輸入整數(shù)的代碼。

x=textbox1.text

if...

'就是你后面的啦 不過(guò)我也很菜，所以也不知道對(duì)不對(duì)，對(duì)你有 沒(méi)有用啊。你試試看吧

VB.Net 的Chr(0) 問(wèn)題

很多文章說(shuō)Chr(0)是字符串結(jié)束符，表示到此字符串已經(jīng)結(jié)束，不必往下讀

比如添加

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

Dim g() As Char = TextBox1.Text.ToCharArray

End Sub

在調(diào)試時(shí)何以查詢g() 就可知道TextBox1到底有多少個(gè)字符

VB.NET 寫(xiě)日期到access 格式不對(duì)

因?yàn)锳ccess日期格式設(shè)置了，在寫(xiě)入中會(huì)出現(xiàn)格式不對(duì)，可以根據(jù)情況自定義修改日期格式寫(xiě)入Access中。

語(yǔ)法如下：format([日期],"YYYY-MM-DD")

示例:

?Format(#2003/10/1#, "aaaa")? ???'星期三

?Format(#2003/10/1#, "dddd")? ? 'Wednesday

?Format(#2003/10/1#, "ww")? ?? ?'40? ? 2003年的第40周

?Format(#2003/10/1#, "mmmm") 'October

?Format(#2003/10/1#, "oooo")? ? '十月

?Format(#2003/10/1#, "q")? ???'4? ?2003年的第4季

日期時(shí)間擴(kuò)展：

(:):??時(shí)間分隔符。在一些區(qū)域，可能用其他符號(hào)來(lái)當(dāng)時(shí)間分隔符。格式化時(shí)間值時(shí)，時(shí)間分隔符可以分隔時(shí)、分、秒。時(shí)間分隔符的真正字符在格式輸出時(shí)取決于系統(tǒng)的設(shè)置。?

(/)?:??日期分隔符。在一些區(qū)域，可能用其他符號(hào)來(lái)當(dāng)日期分隔符。格式化日期數(shù)值時(shí)，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式輸出時(shí)取決于系統(tǒng)設(shè)置。?

c?:??以 ddddd 來(lái)顯示日期并且以 ttttt 來(lái)顯示時(shí)間。如果想顯示的數(shù)值無(wú)小數(shù)部分，則只顯示日期部分，如果想顯示的數(shù)值無(wú)整數(shù)部分，則只顯示時(shí)間部分。?

d?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示日 (1 – 31)。?

dd?:??以有前導(dǎo)零的數(shù)字來(lái)顯示日 (01 – 31)。?

ddd?:??以簡(jiǎn)寫(xiě)來(lái)表示日 (Sun –Sat)。?

dddd?:??以全稱來(lái)表示日 (Sunday –Saturday)。?

ddddd?:??以完整日期表示法顯示（包括年、月、日），日期的顯示要依系統(tǒng)的短日期格式設(shè)置而定。缺省的短日期格式為 m/d/yy。?

dddddd?:??以完整日期表示法顯示日期系列數(shù)（包括年、月、日），日期的顯示要依系統(tǒng)識(shí)別的長(zhǎng)日期格式而定。缺省的長(zhǎng)日期格式為 mmmm dd, yyyy。?

aaaa?:??與dddd 一樣，它只是該字符串的本地化版本。?

w?:??將一周中的日期以數(shù)值表示（1 表星期日~ 7表星期六）。?

ww?:??將一年中的星期以數(shù)值表示 (1 – 54)。?

m?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之后，那么顯示的將是分而不是月。?

mm?:??以有前導(dǎo)零的數(shù)字來(lái)顯示月 (01 – 12)。如果m是直接跟在h或hh之后，那么顯示的將是分而不是月。?

mmm?:??以簡(jiǎn)寫(xiě)來(lái)表示月 (Jan –Dec)。?

mmmm?:??以全稱來(lái)表示月 (January –December)。?

oooo?:??與mmmm一樣，它只是該字符串的本地化版本。?

q?:??將一年中的季以數(shù)值表示 (1 – 4)。?

y?:??將一年中的日以數(shù)值表示 (1 – 366)。?

yy?:??以兩位數(shù)來(lái)表示年 (00 – 99)。?

yyyy?:??以四位數(shù)來(lái)表示年 (00 – 99)。?

h?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示小時(shí) (0 – 23)。?

Hh?:??以有前導(dǎo)零的數(shù)字來(lái)顯示小時(shí) (00– 23)。?

N?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示分 (0 – 59)。?

Nn?:??以有前導(dǎo)零的數(shù)字來(lái)顯示分 (00 – 59)。

S?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示秒 (0 – 59)。?

Ss?:??以有前導(dǎo)零的數(shù)字來(lái)顯示秒 (00 – 59)。?

t t t t t?:??以完整時(shí)間表示法顯示（包括時(shí)、分、秒），用系統(tǒng)識(shí)別的時(shí)間格式定義的時(shí)間分隔符進(jìn)行格式化。如果選擇有前導(dǎo)零并且時(shí)間是在 10:00 A.M. 或 P.M.之前，那么將顯示有前導(dǎo)零的時(shí)間。缺省的時(shí)間格式為 h:mm:ss。?

AM/PM?:??在中午前以 12 小時(shí)配合大寫(xiě) AM 符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合大寫(xiě) PM 來(lái)使用。?

am/pm?:??在中午前以 12 小時(shí)配合小寫(xiě) am 符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合小寫(xiě) pm 來(lái)使用。?

A/P?:??在中午前以 12 小時(shí)配合大寫(xiě)A符號(hào)來(lái)使用；在中午和 11:59 P.M.間以12 小時(shí)配合大寫(xiě)P來(lái)使用。?

a/p?:??在中午前以 12 小時(shí)配合小寫(xiě)a符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合小寫(xiě)p來(lái)使用。?

AMPM?:??在中午前以 12 小時(shí)配合系統(tǒng)設(shè)置的 AM字符串文字來(lái)使用；在中午和 11:59 P.M. 間以 12 小時(shí)配合系統(tǒng)設(shè)置的 PM 字符串文字來(lái)使用。AMPM 可以是大寫(xiě)或小寫(xiě)，但必須和您的系統(tǒng)設(shè)置相配。其缺省格式為 AM/PM。?

程序編譯無(wú)法通過(guò),顯示如下提示,可能是什么問(wèn)題?'>VB.net 窗口屬性設(shè)置問(wèn)題->程序編譯無(wú)法通過(guò),顯示如下提示,可能是什么問(wèn)題?

你主窗口不能設(shè)置為Nothing啊，沒(méi)有主窗口還運(yùn)行個(gè)神馬？

你最多把主窗口的邊界設(shè)置的很小，讓人忽略看不到

或者設(shè)置窗口為透明

下面是網(wǎng)上找的代碼，你研究下，希望有幫助

如何建立一個(gè)透明的From

你可以通過(guò)兩種方法在設(shè)計(jì)時(shí)刻和運(yùn)行時(shí)刻來(lái)做到這一點(diǎn).

設(shè)計(jì)時(shí)刻,你可以在vs.net IDE的 Properties window, 設(shè)置Opacity 屬性達(dá)到這個(gè)效果.這個(gè)值從0.0到1.0 . 0表示完全透明,1.0表示完全不透明.

運(yùn)行時(shí)刻你可以用下面的編碼設(shè)置窗體的opactiy屬性來(lái)做到.具體:

frmtransparentform.opacity = 0.76; ( C# )

看得出現(xiàn)在很簡(jiǎn)單了,你已經(jīng)不用再去了解什么alpha變量了.透明始終只是一種效果,不要濫用它.

VB.NET UNICODE碼 顯示

Public?Class?Form1

Dim?b()?As?Byte

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

b?=?System.Text.Encoding.Default.GetBytes(TextBox1.Text)

For?i?=?0?To?UBound(b)

TextBox2.AppendText(i.ToString??"?")

Next

End?Sub

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

TextBox1.Text?=?System.Text.Encoding.Default.GetString(b)

End?Sub

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

TextBox1.Text?=?"Google?free?online?translation?service?instantly?translates?text?and?web?pages。?該翻譯器支持:?中文(簡(jiǎn)體),?中文(繁體),?shqip,?日本語(yǔ),?русский,?langue?fran?aise?..."

End?Sub

End?ClassVB.Net中用String類(lèi)型表示字符串，內(nèi)部采用Unicode編碼。當(dāng)需要在網(wǎng)絡(luò)或串口中收發(fā)字符串時(shí)，就需要在String和Byte數(shù)組之間進(jìn)行轉(zhuǎn)換，這項(xiàng)功能可以通過(guò)System.Text.Encoding類(lèi)實(shí)現(xiàn)。

Private zeroChars()?As Char?=?{ChrW(0)}

Dim descBytes()?As Byte?=?System.Text.Encoding.Unicode.GetBytes(mDescription)

Dim?description As?String?=?System.Text.Encoding.Unicode.GetString(rBuffer,?offset,?length).TrimEnd(zeroChars)

說(shuō)明：C語(yǔ)言中用'\0'表示字符串結(jié)束，而String類(lèi)型中0是有效字符，顯示時(shí)是空白字符，會(huì)占用顯示寬度，可以用TrimEnd方法將字符串末尾的零字符去掉。

主要敘說(shuō)一下StrConv 函數(shù)conversion參數(shù)最后兩個(gè)值的含義和用途，并舉例說(shuō)明。

1、語(yǔ)法

StrConv(string, conversion, LCID)

StrConv 函數(shù)的語(yǔ)法有下面的命名參數(shù)：

部分 說(shuō)明

string 必要參數(shù)。要轉(zhuǎn)換的字符串表達(dá)式。

conversion 必要參數(shù)。Integer。其值的和決定轉(zhuǎn)換的類(lèi)型。

LCID 可選的。如果與系統(tǒng)LocaleID不同，則為L(zhǎng)ocaleID（系統(tǒng)LocaleID為缺省值。）

設(shè)置值

conversion 參數(shù)的設(shè)置值為：

常數(shù) 值 說(shuō)明

vbUpperCase 1 將字符串文字轉(zhuǎn)成大寫(xiě)。

vbLowerCase 2 將字符串文字轉(zhuǎn)成小寫(xiě)。

vbProperCase 3 將字符串中每個(gè)字的開(kāi)頭字母轉(zhuǎn)成大寫(xiě)。

vbWide* 4* 將字符串中單字節(jié)字符轉(zhuǎn)成雙字節(jié)字符。

vbNarrow* 8* 將字符串中雙字節(jié)字符轉(zhuǎn)成單字節(jié)字符。

vbKatakana** 16** 將字符串中平假名字符轉(zhuǎn)成片假名字符。

vbHiragana** 32** 將字符串中片假名字符轉(zhuǎn)成平假名字符。

vbUnicode 64 根據(jù)系統(tǒng)的缺省碼頁(yè)將字符串轉(zhuǎn)成 Unicode。

vbFromUnicode 128 將字符串由 Unicode 轉(zhuǎn)成系統(tǒng)的缺省碼頁(yè)。

*應(yīng)用到遠(yuǎn)東國(guó)別。

**僅應(yīng)用到日本。

說(shuō)明：前面3個(gè)參數(shù)比較簡(jiǎn)單，后面4個(gè)我們用不上，就不說(shuō)了，主要說(shuō)說(shuō)后面兩個(gè)。

2、ANSI 格式

語(yǔ)法中說(shuō)的缺省碼頁(yè)就是ANSI模式，英文環(huán)境下 的ANSI 格式其實(shí)也就是ASCII碼，其它環(huán)境就不一樣了，比如中文環(huán)境，就是ASCII，一個(gè)字節(jié)表示一個(gè)字符，GB2312，2個(gè)字節(jié)表示一個(gè)漢字，所以中文環(huán)境下的ANSI格式就是ASCII碼+GB2312，早期的DOS系統(tǒng)中純文本就是這種格式，這種格式下，通過(guò)最高位來(lái)判斷是中文字符（最高位是1）還是ASCII字符（最高位是0）。中文環(huán)境下保存文本文件時(shí)一般都采用ANSI格式，不過(guò)也有其他格式，比如UTF-8。

3、Unicode編碼

Unicode（統(tǒng)一碼、萬(wàn)國(guó)碼、單一碼）是一種在計(jì)算機(jī)上使用的字符編碼。Unicode 是為了解決傳統(tǒng)的字符編碼方案的局限而產(chǎn)生的，它為每種語(yǔ)言中的每個(gè)字符設(shè)定了統(tǒng)一并且唯一的二進(jìn)制編碼，以滿足跨語(yǔ)言、跨平臺(tái)進(jìn)行文本轉(zhuǎn)換、處理的要求。Unicode用兩個(gè)字節(jié)表示一個(gè)字符，涵蓋了世界上所有字符，和以前的字符集都不兼容，VB內(nèi)部字符串就是采用Unicode編碼，所以當(dāng)我們打開(kāi)一個(gè)文本文件讀入數(shù)據(jù)的時(shí)候，其內(nèi)存中的內(nèi)容和文本文件的內(nèi)容是不一樣的，經(jīng)過(guò)了轉(zhuǎn)換，除非你采用二進(jìn)制方式讀入。

4、vbUnicode和vbFromUnicode含義

有了上面敘說(shuō)，這兩個(gè)參數(shù)的含義就好理解了，就是Unicode編碼和ANSI編碼的互換，例如：

? ? ? textline= StrConv(plaintext,vbUnicode) ?

這兒textline是以字符串變量，plaintext是以字節(jié)變量保存著ANSI模式的字符內(nèi)容，例如，“2”這個(gè)字符，一個(gè)字節(jié)，值是50，16進(jìn)制是32，“皖”這個(gè)漢字，兩個(gè)字節(jié)，值是205和238，同樣是這兩個(gè)字符，作為字符串在內(nèi)存中都是兩個(gè)字節(jié)，例如，“2”這個(gè)字符在內(nèi)存中16進(jìn)制值是0032。當(dāng)VB打開(kāi)一個(gè)文件讀取文本內(nèi)容是，實(shí)際上自動(dòng)進(jìn)行了上述轉(zhuǎn)換。

? ? ?plaintext?= StrConv(textline,?vbFromUnicode)

這兒進(jìn)行相反的轉(zhuǎn)換，就是將Unicode字符串轉(zhuǎn)換成ANSI模式，轉(zhuǎn)換結(jié)果必須以字節(jié)方式保存。

5、vbUnicode和vbFromUnicode用途

由于字符在內(nèi)存中的內(nèi)容和文件中的內(nèi)容不一致，所以必須要用到這種轉(zhuǎn)換，特別是系統(tǒng)間進(jìn)行數(shù)據(jù)交換、數(shù)據(jù)加密和解密，如果不做轉(zhuǎn)換可能導(dǎo)致得不到正確的結(jié)果。

比如，我們對(duì)一個(gè)文本文件進(jìn)行加密，這個(gè)文件是ANSI格式存儲(chǔ)的，當(dāng)從文件內(nèi)容讀入一行到內(nèi)存的時(shí)候，自動(dòng)將內(nèi)容轉(zhuǎn)換成了Unicode格式，如果這時(shí)候?qū)ζ渥黾用苓\(yùn)算，其結(jié)果和文件中字符串加密結(jié)果是不一樣的，這樣的結(jié)果如果讓別人解密將無(wú)法得到正確的結(jié)果。如果對(duì)讀入內(nèi)存的內(nèi)容先做個(gè)轉(zhuǎn)換（textline是讀入內(nèi)容）：

? ? ?plaintext?= StrConv(textline,?vbFromUnicode)

再對(duì)plaintext做加密，其結(jié)果就一樣了。

舉例（按行做加密和解密運(yùn)算，算法是AES+Base64）：

[vb]?view plain?copy

Status?=?"Encrypting?File"

Open?FileName?For?Input?As?#1??????'?打開(kāi)輸入文件。

Open?FileName2?For?Output?As?#2?????'?打開(kāi)輸出文件。

Do?While?Not?EOF(1)

Line?Input?#1,?TextLine

plaintext?=?StrConv(TextLine,?vbFromUnicode)

Status?=?"Encrypting?Data"

m_Rijndael.SetCipherKey?pass,?KeyBits

m_Rijndael.ArrayEncrypt?plaintext,?ciphertext,?0

Status?=?"Converting?Text?to?Base64"

TextLine?=?Base64Encode(ciphertext)

Status?=?""

Print?#2,?TextLine????'?將字符串寫(xiě)入文件。

Loop

Close

[vb]?view plain?copy

Status?=?"Decrypting?File"

Open?FileName?For?Input?As?#1??????'?打開(kāi)輸入文件。

Open?FileName2?For?Output?As?#2????'?打開(kāi)輸出文件。

Do?While?Not?EOF(1)

Line?Input?#1,?TextLine

Status?=?"Converting?Base64?to?Text"

ciphertext?=?Base64Decode(TextLine)

Status?=?"Decrypting?Data"

m_Rijndael.SetCipherKey?pass,?KeyBits

If?m_Rijndael.ArrayDecrypt(plaintext,?ciphertext,?0)??0?Then

Status?=?""

Exit?Sub

End?If

TextLine?=?StrConv(plaintext,?vbUnicode)

For?i?=?0?To?UBound(plaintext)

Debug.Print?plaintext(i)

Next?i

k?=?InStr(1,?TextLine,?Chr(0),?vbBinaryCompare)

If?k??0?Then?TextLine?=?Left(TextLine,?k?-?1)????'截掉加密時(shí)補(bǔ)的0

MsgBox?TextLine??"end"

Status?=?""

Print?#2,?TextLine????'?將字符串寫(xiě)入文件。

Loop

Close

VB.NET想用GetWindowRECT獲取某窗口的坐標(biāo)，但測(cè)試結(jié)果是L,T,R,B顯示都是0,0,0,0

很簡(jiǎn)單，原因有二。第一，VB里long是32位，但是VB.NET里是64位，Dim ksWND As Integer才對(duì)。第二，VB在API里默認(rèn)傳址，而VB.NET默認(rèn)傳值，所以API里要添加Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,添加"ByRef" lpRect As RECT) As Integer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,byref lpRect As RECT) As Integer

Private Structure RECT

Dim Left As Integer

Dim Top As Integer

Dim Right As Integer

Dim Bottom As Integer

End Structure

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

Dim ksWND As integer

Dim ksTitle As String

Dim winS As RECT

If TextBox1.Text "" Then

ksTitle = TextBox1.Text

ksWND = FindWindow(vbNullString, ksTitle)

GetWindowRect(ksWND, winS)

MsgBox("左上角坐標(biāo)(" winS.Left "," winS.Top ")" vbCrLf "右下角坐標(biāo)(" winS.Right "," winS.Bottom ")" vbCrLf "窗口高" winS.Bottom - winS.Top "窗口寬" winS.Right - winS.Left)

Else

MsgBox("請(qǐng)?zhí)顚?xiě)窗口名稱")

End If

End Sub