vb.net 字符串，16進(jìn)制間轉(zhuǎn)換(求代碼)

把字符串“12341168C5B7”轉(zhuǎn)換為16進(jìn)制數(shù)存為string型

成都網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、重慶網(wǎng)站建設(shè)公司、微信開(kāi)發(fā)、小程序開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。核心團(tuán)隊(duì)均擁有互聯(lián)網(wǎng)行業(yè)多年經(jīng)驗(yàn)，服務(wù)眾多知名企業(yè)客戶(hù)；涵蓋的客戶(hù)類(lèi)型包括：陽(yáng)臺(tái)護(hù)欄等眾多領(lǐng)域，積累了大量豐富的經(jīng)驗(yàn)，同時(shí)也獲得了客戶(hù)的一致稱(chēng)譽(yù)！

用shuzi=Convert.ToInt32("12341168C5B7",16)

就ok了。

反之用 shuzi.ToString("X")就行了。

給分！?。?/p>

12341168C5B7轉(zhuǎn)換成10進(jìn)制數(shù)就是20014839678391。。

而int32的最大值為2,147,483,647。。所以產(chǎn)生錯(cuò)誤。

所以要用int64，它的最大值為9,223,372,036,854,775,807。也就是16位十六進(jìn)制數(shù)0X7FFFFFFFFFFFFFFF。

難道還有比F靠后的數(shù)？？？？？？

VB.NET連接access數(shù)據(jù)庫(kù)文件時(shí)提示“無(wú)效的授權(quán)說(shuō)明”

數(shù)據(jù)庫(kù)與文本文件返回?cái)?shù)據(jù)的方法不同.如果把文本文件比作一個(gè)Textbox 的話(huà),那么數(shù)據(jù)庫(kù)更像是一個(gè)ListBox.使用文本文件時(shí)我們需要從整個(gè)Textbox中取出有用的信息,并進(jìn)行處理,而Listbox則可以根據(jù)需要返回特定的某一項(xiàng).

由于VB本身并不帶有可以訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)的類(lèi),所以我們需要引用一個(gè)包含能訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)的類(lèi)來(lái)使用數(shù)據(jù)庫(kù).這里我們采用ADODB,相比DAO和能訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)的API來(lái)說(shuō),它比DAO更靈活,更強(qiáng)大;而比起API,它更簡(jiǎn)單易用,更適合初學(xué)者.而Access數(shù)據(jù)庫(kù)比起SQL,也相對(duì)簡(jiǎn)單了很多,且能夠滿(mǎn)足中小型應(yīng)用程序的需要,所以我們?cè)谑褂脭?shù)據(jù)庫(kù)時(shí),選擇了Access.

就像使用文本文件來(lái)存儲(chǔ)數(shù)據(jù)一樣,我們需要先設(shè)計(jì)好數(shù)據(jù)結(jié)構(gòu),只不過(guò)在設(shè)計(jì)Access數(shù)據(jù)庫(kù)的結(jié)構(gòu)時(shí),我們需要用到其它的程序來(lái)進(jìn)行詳細(xì)的規(guī)劃.建議采用的程序是office中的Access或VB自帶的VISDATA.

當(dāng)數(shù)據(jù)庫(kù)設(shè)計(jì)好了以后,我們可以開(kāi)始"數(shù)據(jù)庫(kù)編程"了.

首先,我們需要引用ADO.具體的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",這里的"*.*"是指的時(shí)ADO的版本號(hào),一般來(lái)說(shuō),應(yīng)用程序或ActiveX控件都具有向下兼容性,所以我們盡可能選擇比較新的版本.以確保程序在能識(shí)別舊版本Access的同時(shí),也能識(shí)別較新版本的Access.

然后我們需要在程序中創(chuàng)建一個(gè)對(duì)象.就好比我們?cè)诖绑w上添加一個(gè)FileBox才能看到文件名一樣,只有創(chuàng)建了ADO對(duì)象,我們才能夠訪(fǎng)問(wèn)數(shù)據(jù)庫(kù).常用的對(duì)象有兩個(gè),Connection和Recordset.

創(chuàng)建這兩個(gè)對(duì)象的具體方法是:

1.在引用后,使用New關(guān)鍵字,如

Private Conn As New ADODB.Connection

Private Reco As New ADODB.Recordset

2.在沒(méi)引用時(shí),用CreateObject創(chuàng)建對(duì)象:

Dim Conn,Reco

Set Conn = CreateObject("ADODB.Connection")

Set Reco = CreateObject("ADODB.Recordset")

創(chuàng)建了對(duì)象之后,下一步我們要做的就是打開(kāi)數(shù)據(jù)庫(kù)了.

先看下面的代碼,可以成功的打開(kāi)數(shù)據(jù)庫(kù).

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"

這句代碼打開(kāi)了D盤(pán)中的Main.mdb這個(gè)數(shù)據(jù)庫(kù).

Connection.Open方法的第一個(gè)參數(shù)是連接代碼,它將傳遞給系統(tǒng)的數(shù)據(jù)庫(kù)引擎.前半部分"Provider=Microsoft.Jet.OLEDB.4.0",它表示了數(shù)據(jù)庫(kù)的類(lèi)型.不同的數(shù)據(jù)庫(kù)可能會(huì)不同.后半句"Source=d:\main.mdb"它表示了數(shù)據(jù)庫(kù)所在的絕對(duì)路徑.

打開(kāi)數(shù)據(jù)庫(kù)之后,還要打開(kāi)表.假如數(shù)據(jù)庫(kù)中有一個(gè)表,表名為"Users",字段有兩個(gè),一個(gè)為用戶(hù)名,一個(gè)為密碼.那么看以下代碼.

1.想返回"Users"中,[用戶(hù)名]為"去年煙花"的[密碼]

Recordset.open "Select 密碼 From Users Where 用戶(hù)名='去年煙花'",Connection,1,1

之后我們就可以把用戶(hù)輸入的密碼進(jìn)行比較,看是否允許登錄.

If Recordset.eof and Recordset.bof then

Msgbox "用戶(hù)不存在!",16

Else

If PassWord =Recordset("密碼").value then

msgbox "登錄成功!",64

Else

msgbox "密碼錯(cuò)誤!",32

End If

End If

Recordset.Close

2.假設(shè)Admin已經(jīng)成功登錄系統(tǒng),我們想把所有的用戶(hù)名和密碼都顯示出來(lái)

Recordset.open "Select * From Users",Connection,1,1

這時(shí),表已經(jīng)被打開(kāi),我們就用以下代碼把它顯示出來(lái).

Do whlie Not Recordset.eof

Print "用戶(hù)名: " Recordset("用戶(hù)名").value "密碼: " Recordset("密碼").value

Recordset.MoveNext

Loop

Recordset.Close

由以上代碼示例可以看出,打開(kāi)表時(shí),可以只打開(kāi)其中的一個(gè)字段,也可以打開(kāi)所有.第一個(gè)參數(shù)是SQL語(yǔ)句.

Select [字段名] From 表名 [Where 條件]

這里的條件可以省略.且字段名也可以用"*"來(lái)代替所有字段.

需要注意的是,如果你用(1)中的方法打開(kāi),那么(2)后面顯示的代碼就不能再用在(1)中.因?yàn)?1)里并沒(méi)有打開(kāi)[用戶(hù)名]字段,所以這一句Recordset("密碼")就沒(méi)有值存在,還有可能出錯(cuò).

后面的條件,可以用"="、""、""等運(yùn)算符.比如 "Where ID 32".(這里假設(shè)[ID]為數(shù)字型.)

這是打開(kāi)的部分.第二個(gè)很重要的部分就是查詢(xún)記錄.

數(shù)據(jù)庫(kù)它并不是把所有記錄全部放到一個(gè)變量中備用的.而是以"當(dāng)前記錄"的形式來(lái)返回一個(gè)值.所以我們想從中找到有用的信息,就必須要對(duì)信息進(jìn)行定位/篩選.

定位:

移動(dòng)到下一條 Recordset.MoveNext

移動(dòng)到上一條 Recordset.MovePrevious

移動(dòng)到最后一條 Recordset.MoveLast

移動(dòng)到第一條 Recordset.MoveFrist

移動(dòng)到某一條 Recordset.Move Number

篩選:

Recordset.Find "條件"

如:[用方法(2)打開(kāi)表之后]

Private Sub Command1_Click()

Recordset.Find "用戶(hù)名=" "text1.text"

If Recordset.Eof True Then

Msgbox "該用戶(hù)的密碼是:" Recordset("密碼").value,64

Else

Msgbox "未找到該用戶(hù)的資料!",16

End If

End Sub

MoveNext 只有當(dāng)Eof不為T(mén)rue時(shí),才可用,否則發(fā)生錯(cuò)誤.而MovePrevious剛是Bof不為T(mén)rue時(shí)....

而只要Eof 和 Bof中有一個(gè)不為真時(shí),也就是說(shuō)只要有一條記錄時(shí),它就可以使用.

Find 方法中的條件和Open時(shí)的第一個(gè)參數(shù)中的條件表述方法是完全一致的.當(dāng)在已打開(kāi)的記錄集中,找不到該記錄時(shí),Eof為T(mén)rue.找到則當(dāng)前的值就是符合條件的記錄.

第三個(gè)部分就是添加/修改記錄.

修改記錄很簡(jiǎn)單,先按以上的方法找到相關(guān)記錄之后,給記錄賦值就可以了.

比如:[(修改密碼)按方法(1)打開(kāi)表之后]

Recordset("密碼").value = "123456"

Recordset.Updata

需要注意的就是,在修改完成后,要調(diào)用Updata方法,這樣修改才能生效.

而添加記錄則可以用以下代碼來(lái)實(shí)現(xiàn):

Recordset.addnew

Recordset("用戶(hù)名").value = "Admin"

Recordset("密碼").value = "Admin"

Recordset.Updata

這里,先要調(diào)用Addnew方法,增加一條新記錄,然后對(duì)這個(gè)新記錄中的各字段賦值,最后再調(diào)用Updata方法.

到這里就差不多了,最后說(shuō)一下上面提到的幾個(gè)方法.

Recordset.Open SQL語(yǔ)句,數(shù)據(jù)源,游標(biāo)類(lèi)型,打開(kāi)方法

SQL語(yǔ)句不用說(shuō)了,就是Select那啥的,目的就是按要求從表中返回?cái)?shù)據(jù)

數(shù)據(jù)源就是一個(gè)打開(kāi)之后的Connection對(duì)象.

去他媽的游標(biāo)類(lèi)型,填1就可以了 [偷笑ing]

打開(kāi)方法對(duì)應(yīng)了幾個(gè)常數(shù),具體哪幾個(gè)可以從對(duì)象瀏覽器里看.

對(duì)應(yīng)數(shù)值的意義:

1 只讀 2 獨(dú)占 3 可寫(xiě) 4 自已可寫(xiě),別人可讀

Connection.open 連接代碼,服務(wù)器用戶(hù)名,密碼

這里的連接代碼就不在多說(shuō)了,服務(wù)器用戶(hù)名,密碼只有在連接遠(yuǎn)程數(shù)據(jù)庫(kù)時(shí)才用到.

VB.NET中，如何獲得文本框中可見(jiàn)區(qū)域的首行的行號(hào)？

通過(guò)向文本框傳遞EM_LINEFROMCHAR消息可以得到光標(biāo)所在的行號(hào)：

contst

EM_LINEFROMCHAR

=

0xC9

Dim

I

as

Long

I

=

SendMessage(textBox1.Hwnd,

EM_LINEFROMCHAR,

-1,

0)

VB.net怎樣按住鼠標(biāo)移動(dòng)無(wú)邊框窗體

1.在mouse事件中實(shí)現(xiàn)

2.調(diào)用windows API

實(shí)現(xiàn)方式為：

1.在mouse事件中實(shí)現(xiàn)

[csharp] view plain copy

Point mouseOff;//鼠標(biāo)移動(dòng)位置變量

bool leftFlag;//標(biāo)簽是否為左鍵

private void groupControl1_MouseUp(object sender, MouseEventArgs e)

{

if (leftFlag)

{

leftFlag = false;//釋放鼠標(biāo)后標(biāo)注為false;

}

}

private void groupControl1_MouseMove(object sender, MouseEventArgs e)

{

if (leftFlag)

{

Point mouseSet = Control.MousePosition;

mouseSet.Offset(mouseOff.X, mouseOff.Y); //設(shè)置移動(dòng)后的位置

Location = mouseSet;

}

}

private void groupControl1_MouseDown(object sender, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

mouseOff = new Point(-e.X, -e.Y); //得到變量的值

leftFlag = true; //點(diǎn)擊左鍵按下時(shí)標(biāo)注為true;

}

}

private void groupControl1_MouseDown(object sender, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

mouseOff = new Point(-e.X, -e.Y); //得到變量的值

leftFlag = true; //點(diǎn)擊左鍵按下時(shí)標(biāo)注為true;

}

}

2.調(diào)用windows API

調(diào)用前需要添加using System.Runtime.InteropServices;

[csharp] view plain copy

[DllImport("user32.dll")]

public static extern bool ReleaseCapture();

[DllImport("user32.dll")]

public static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, int lParam);

private void groupControl1_MouseDown(object sender, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

ReleaseCapture(); //釋放鼠標(biāo)捕捉

//發(fā)送左鍵點(diǎn)擊的消息至該窗體(標(biāo)題欄)

SendMessage(Handle, 0xA1, 0x02, 0);

}

}

如何用vb.net將漢字轉(zhuǎn)換成拼音阿

public string hz2py(string hz) //獲得漢字的區(qū)位碼

{

byte[] sarr = System.Text.Encoding.Default.GetBytes(hz);

int len = sarr.Length;

if (len1)

{

byte[] array = new byte[2];

array = System.Text.Encoding.Default.GetBytes(hz);

int i1 = (short)(array[0] - '\0');

int i2 = (short)(array[1] - '\0');

//unicode解碼方式下的漢字碼

// array = System.Text.Encoding.Unicode.GetBytes(hz);

// int i1 = (short)(array[0] - '\0');

// int i2 = (short)(array[1] - '\0');

// int t1 = Convert.ToInt32(i1,16);

// int t2 = Convert.ToInt32(i2,16);

int tmp=i1*256+i2;

string getpychar="*";//找不到拼音碼的用*補(bǔ)位

if(tmp=45217tmp=45252){getpychar= "A";}

else if(tmp=45253tmp=45760){getpychar= "B";}

else if(tmp=47761tmp=46317){getpychar= "C";}

else if(tmp=46318tmp=46825){getpychar= "D";}

else if(tmp=46826tmp=47009){getpychar= "E";}

else if(tmp=47010tmp=47296){getpychar= "F";}

else if(tmp=47297tmp=47613){getpychar= "G";}

else if(tmp=47614tmp=48118){getpychar= "H";}

else if(tmp=48119tmp=49061){getpychar= "J";}

else if(tmp=49062tmp=49323){getpychar= "K";}

else if(tmp=49324tmp=49895){getpychar= "L";}

else if(tmp=49896tmp=50370){getpychar= "M";}

else if(tmp=50371tmp=50613){getpychar= "N";}

else if(tmp=50614tmp=50621){getpychar= "O";}

else if(tmp=50622tmp=50905){getpychar= "P";}

else if(tmp=50906tmp=51386){getpychar= "Q";}

else if(tmp=51387tmp=51445){getpychar= "R";}

else if(tmp=51446tmp=52217){getpychar= "S";}

else if(tmp=52218tmp=52697){getpychar= "T";}

else if(tmp=52698tmp=52979){getpychar= "W";}

else if(tmp=52980tmp=53640){getpychar= "X";}

else if(tmp=53689tmp=54480){getpychar= "Y";}

else if(tmp=54481tmp=55289){getpychar= "Z";}

return getpychar;

}

else

{

return hz;

}

}

public string transpy(string strhz) //把漢字字符串轉(zhuǎn)換成拼音碼

{

string strtemp="";

int strlen=strhz.Length;

for (int i=0;i=strlen-1;i++)

{

strtemp+=hz2py(strhz.Substring(i,1));

}

return strtemp;

}

create table tabpy(id int identity,b_begin varbinary(2),b_end varbinary(2),word varchar(2))

insert tabpy select 0xB0A1, 0xB0C4,'A'

union all select 0xB0C5, 0xB2C0,'B'

union all select 0xB2C1, 0xB4ED,'C'

union all select 0xB4EE, 0xB6E9,'D'

union all select 0xB6EA, 0xB7A1,'E'

union all select 0xB7A2, 0xB8C0,'F'

union all select 0xB8C1, 0xB9FD,'G'

union all select 0xB9FE, 0xBBF6,'H'

union all select 0xBBF7, 0xBFA5,'J'

union all select 0xBFA6, 0xC0AB,'K'

union all select 0xC0AC, 0xC2E7,'L'

union all select 0xC2E8, 0xC4C2,'M'

union all select 0xC4C3, 0xC5B5,'N'

union all select 0xC5B6, 0xC5BD,'O'

union all select 0xC5BE, 0xC6D9,'P'

union all select 0xC6DA, 0xC8BA,'Q'

union all select 0xC8BB, 0xC8F5,'R'

union all select 0xC8F6, 0xCBF9,'S'

union all select 0xCBFA, 0xCDD9,'T'

union all select 0xCDDA, 0xCEF3,'W'

union all select 0xCEF4, 0xD1B8,'X'

union all select 0xD1B9, 0xD4D0,'Y'

union all select 0xD4D1, 0xD7F9,'Z'

函數(shù)：

create function getfirstpy(@a varchar(200))

returns varchar(100)

as

begin

declare @i int,@j int,@result varchar(100)

set @result=''

set @i=len(@a)

set @j=1

while @j=@i

begin

select @result=@result+word from tabpy where cast(substring(@a,@j,1) as varbinary(2)) between b_begin and b_end

set @j=@j+1

end

return @result

end

vb.net二進(jìn)制怎么讀取文件？

一、二進(jìn)制文件讀寫(xiě)

1、寫(xiě)二進(jìn)制數(shù)據(jù)到指定目錄

==將barray字節(jié)數(shù)組中的數(shù)據(jù)創(chuàng)建在strFilename目錄文件下，存儲(chǔ)格式為二進(jìn)制，F(xiàn)alse表示不添加，直接覆蓋創(chuàng)建。

2、從指定路徑下讀取二進(jìn)制數(shù)據(jù)到數(shù)組

==將目錄中的文件讀取到barry字節(jié)數(shù)組中，即讀取二進(jìn)制文件。

二、字符文件的讀寫(xiě)

1、 將txtFile控件中的字符寫(xiě)到srtFileName指定目錄,以創(chuàng)建方式。

2、從srtFileName目錄中的文件讀取到txtFile控件