VB.NET的新麻煩！！！

首先你定義了兩個變量x%，y% 其默認值為0

成都創新互聯公司是一家集網站建設,濟寧企業網站建設,濟寧品牌網站建設,網站定制,濟寧網站建設報價,網絡營銷,網絡優化,濟寧網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。

然后執行條件判斷滿足第一個條件x1000 ,就將x賦值給y 此時x=0，y=0

跳出判斷，顯示兩個0。

我引用他的話， 后面就是你沒有給他賦值。 差一點代碼。

dim x% ,y%

'可以加一個檢測textbox1.text 里只能輸入整數的代碼。

x=textbox1.text

if...

'就是你后面的啦 不過我也很菜，所以也不知道對不對，對你有 沒有用啊。你試試看吧

VB.Net 的Chr(0) 問題

很多文章說Chr(0)是字符串結束符，表示到此字符串已經結束，不必往下讀

比如添加

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

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

VB.NET 寫日期到access 格式不對

因為Access日期格式設置了，在寫入中會出現格式不對，可以根據情況自定義修改日期格式寫入Access中。

語法如下：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季

日期時間擴展：

(:):??時間分隔符。在一些區域，可能用其他符號來當時間分隔符。格式化時間值時，時間分隔符可以分隔時、分、秒。時間分隔符的真正字符在格式輸出時取決于系統的設置。?

(/)?:??日期分隔符。在一些區域，可能用其他符號來當日期分隔符。格式化日期數值時，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式輸出時取決于系統設置。?

c?:??以 ddddd 來顯示日期并且以 ttttt 來顯示時間。如果想顯示的數值無小數部分，則只顯示日期部分，如果想顯示的數值無整數部分，則只顯示時間部分。?

d?:??以沒有前導零的數字來顯示日 (1 – 31)。?

dd?:??以有前導零的數字來顯示日 (01 – 31)。?

ddd?:??以簡寫來表示日 (Sun –Sat)。?

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

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

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

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

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

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

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

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

mmm?:??以簡寫來表示月 (Jan –Dec)。?

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

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

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

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

yy?:??以兩位數來表示年 (00 – 99)。?

yyyy?:??以四位數來表示年 (00 – 99)。?

h?:??以沒有前導零的數字來顯示小時 (0 – 23)。?

Hh?:??以有前導零的數字來顯示小時 (00– 23)。?

N?:??以沒有前導零的數字來顯示分 (0 – 59)。?

Nn?:??以有前導零的數字來顯示分 (00 – 59)。

S?:??以沒有前導零的數字來顯示秒 (0 – 59)。?

Ss?:??以有前導零的數字來顯示秒 (00 – 59)。?

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

AM/PM?:??在中午前以 12 小時配合大寫 AM 符號來使用；在中午和 11:59 P.M.間以 12 小時配合大寫 PM 來使用。?

am/pm?:??在中午前以 12 小時配合小寫 am 符號來使用；在中午和 11:59 P.M.間以 12 小時配合小寫 pm 來使用。?

A/P?:??在中午前以 12 小時配合大寫A符號來使用；在中午和 11:59 P.M.間以12 小時配合大寫P來使用。?

a/p?:??在中午前以 12 小時配合小寫a符號來使用；在中午和 11:59 P.M.間以 12 小時配合小寫p來使用。?

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

程序編譯無法通過,顯示如下提示,可能是什么問題?'>VB.net 窗口屬性設置問題->程序編譯無法通過,顯示如下提示,可能是什么問題?

你主窗口不能設置為Nothing啊，沒有主窗口還運行個神馬？

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

或者設置窗口為透明

下面是網上找的代碼，你研究下，希望有幫助

如何建立一個透明的From

你可以通過兩種方法在設計時刻和運行時刻來做到這一點.

設計時刻,你可以在vs.net IDE的 Properties window, 設置Opacity 屬性達到這個效果.這個值從0.0到1.0 . 0表示完全透明,1.0表示完全不透明.

運行時刻你可以用下面的編碼設置窗體的opactiy屬性來做到.具體:

frmtransparentform.opacity = 0.76; ( C# )

看得出現在很簡單了,你已經不用再去了解什么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。?該翻譯器支持:?中文(簡體),?中文(繁體),?shqip,?日本語,?русский,?langue?fran?aise?..."

End?Sub

End?ClassVB.Net中用String類型表示字符串，內部采用Unicode編碼。當需要在網絡或串口中收發字符串時，就需要在String和Byte數組之間進行轉換，這項功能可以通過System.Text.Encoding類實現。

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)

說明：C語言中用'\0'表示字符串結束，而String類型中0是有效字符，顯示時是空白字符，會占用顯示寬度，可以用TrimEnd方法將字符串末尾的零字符去掉。

主要敘說一下StrConv 函數conversion參數最后兩個值的含義和用途，并舉例說明。

1、語法

StrConv(string, conversion, LCID)

StrConv 函數的語法有下面的命名參數：

部分 說明

string 必要參數。要轉換的字符串表達式。

conversion 必要參數。Integer。其值的和決定轉換的類型。

LCID 可選的。如果與系統LocaleID不同，則為LocaleID（系統LocaleID為缺省值。）

設置值

conversion 參數的設置值為：

常數 值 說明

vbUpperCase 1 將字符串文字轉成大寫。

vbLowerCase 2 將字符串文字轉成小寫。

vbProperCase 3 將字符串中每個字的開頭字母轉成大寫。

vbWide* 4* 將字符串中單字節字符轉成雙字節字符。

vbNarrow* 8* 將字符串中雙字節字符轉成單字節字符。

vbKatakana** 16** 將字符串中平假名字符轉成片假名字符。

vbHiragana** 32** 將字符串中片假名字符轉成平假名字符。

vbUnicode 64 根據系統的缺省碼頁將字符串轉成 Unicode。

vbFromUnicode 128 將字符串由 Unicode 轉成系統的缺省碼頁。

*應用到遠東國別。

**僅應用到日本。

說明：前面3個參數比較簡單，后面4個我們用不上，就不說了，主要說說后面兩個。

2、ANSI 格式

語法中說的缺省碼頁就是ANSI模式，英文環境下 的ANSI 格式其實也就是ASCII碼，其它環境就不一樣了，比如中文環境，就是ASCII，一個字節表示一個字符，GB2312，2個字節表示一個漢字，所以中文環境下的ANSI格式就是ASCII碼+GB2312，早期的DOS系統中純文本就是這種格式，這種格式下，通過最高位來判斷是中文字符（最高位是1）還是ASCII字符（最高位是0）。中文環境下保存文本文件時一般都采用ANSI格式，不過也有其他格式，比如UTF-8。

3、Unicode編碼

Unicode（統一碼、萬國碼、單一碼）是一種在計算機上使用的字符編碼。Unicode 是為了解決傳統的字符編碼方案的局限而產生的，它為每種語言中的每個字符設定了統一并且唯一的二進制編碼，以滿足跨語言、跨平臺進行文本轉換、處理的要求。Unicode用兩個字節表示一個字符，涵蓋了世界上所有字符，和以前的字符集都不兼容，VB內部字符串就是采用Unicode編碼，所以當我們打開一個文本文件讀入數據的時候，其內存中的內容和文本文件的內容是不一樣的，經過了轉換，除非你采用二進制方式讀入。

4、vbUnicode和vbFromUnicode含義

有了上面敘說，這兩個參數的含義就好理解了，就是Unicode編碼和ANSI編碼的互換，例如：

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

這兒textline是以字符串變量，plaintext是以字節變量保存著ANSI模式的字符內容，例如，“2”這個字符，一個字節，值是50，16進制是32，“皖”這個漢字，兩個字節，值是205和238，同樣是這兩個字符，作為字符串在內存中都是兩個字節，例如，“2”這個字符在內存中16進制值是0032。當VB打開一個文件讀取文本內容是，實際上自動進行了上述轉換。

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

這兒進行相反的轉換，就是將Unicode字符串轉換成ANSI模式，轉換結果必須以字節方式保存。

5、vbUnicode和vbFromUnicode用途

由于字符在內存中的內容和文件中的內容不一致，所以必須要用到這種轉換，特別是系統間進行數據交換、數據加密和解密，如果不做轉換可能導致得不到正確的結果。

比如，我們對一個文本文件進行加密，這個文件是ANSI格式存儲的，當從文件內容讀入一行到內存的時候，自動將內容轉換成了Unicode格式，如果這時候對其做加密運算，其結果和文件中字符串加密結果是不一樣的，這樣的結果如果讓別人解密將無法得到正確的結果。如果對讀入內存的內容先做個轉換（textline是讀入內容）：

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

再對plaintext做加密，其結果就一樣了。

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

[vb]?view plain?copy

Status?=?"Encrypting?File"

Open?FileName?For?Input?As?#1??????'?打開輸入文件。

Open?FileName2?For?Output?As?#2?????'?打開輸出文件。

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????'?將字符串寫入文件。

Loop

Close

[vb]?view plain?copy

Status?=?"Decrypting?File"

Open?FileName?For?Input?As?#1??????'?打開輸入文件。

Open?FileName2?For?Output?As?#2????'?打開輸出文件。

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)????'截掉加密時補的0

MsgBox?TextLine??"end"

Status?=?""

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

Loop

Close

VB.NET想用GetWindowRECT獲取某窗口的坐標，但測試結果是L,T,R,B顯示都是0,0,0,0

很簡單，原因有二。第一，VB里long是32位，但是VB.NET里是64位，Dim ksWND As Integer才對。第二，VB在API里默認傳址，而VB.NET默認傳值，所以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("左上角坐標(" winS.Left "," winS.Top ")" vbCrLf "右下角坐標(" winS.Right "," winS.Bottom ")" vbCrLf "窗口高" winS.Bottom - winS.Top "窗口寬" winS.Right - winS.Left)

Else

MsgBox("請填寫窗口名稱")

End If

End Sub

分享文章：關于vb.net顯示前導0的信息
文章轉載：http://www.yijiale78.com/article38/dodsipp.html

成都網站建設公司_創新互聯，為您提供App設計、網站改版、品牌網站制作、網站建設、搜索引擎優化、云服務器

廣告

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