Function ByteToBin(m As Byte) As String ' 將字節型數據轉換成八位二進制字符串
創新互聯是一家專業提供靖遠企業網站建設,專注與網站建設、成都網站制作、H5頁面制作、小程序制作等業務。10年已為靖遠眾多企業、政府機構等服務。創新互聯專業網站建設公司優惠進行中。
Dim c$
c$ = ""
Do While m 0
r = m Mod 2
m = m \ 2
c$ = r c$
Loop
c$ = Right("00000000" c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 將八位二進制字符串顛倒順序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 將八位二進制串轉換成十進制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("請輸入要加密的文件名!注意加上路徑名:")
If Dir(fname) = "" Then
MsgBox "文件不存在!"
Exit Sub
End If
Open fname For Binary As #1 ' 以二進制訪問模式打開待加密文件
For i = 1 To LOF(1) ' LOF函數是求文件長度的內部函數
Get #1, i, x ' 取出第i個字節
x = BinToByte(Reverse(ByteToBin(x))) ' 這里調用了三個自定義函數
Put #1, i, x ' 將加密后的這個字節寫回到文件原位置
Next i
Close
MsgBox "完成!"
End Sub
退出:Unload Me
網上幫你找的,如果不符合你的要求,你可以再去網上在搜搜,有很多代碼的。
VB.NET數據類型VB.NET中有12種不同的數據類型,可以分成三類:數值類型、文本類型和混合類型。數值類型是VB.NET數據類型的主要類型,共7種。數值類型的數據類型見下表。 數據類型表示方式取 值 范 圍說 明整型Integer–2147483648~2147483647用于表示簡單整數字節型Byte0~255用于簡單算術運算。由于這個類型的變量可以在一個字節中存儲,所以運算速度最快短整型Short–32768~32767是整型的一種形式,相對表示范圍較小長整型Long–9223372036854775808~9223372036854775807是整型的一種形式,相對表示范圍較大單精
度型Single–3.402823E38~–1.401298E-45(對于負數)和1.401298E-45~3.402823E38(對于正數)用于存放單精度浮點數雙精
度型Double–1.79869313486232E308~–4.94065645841247E-324(對于負數)和4.94065645841247E-324~1.79869313486232E308(對于正數)用于存放雙精度浮點數小數Decimal當小數位為0的時候,為–79228162514264337593543950335~
79228162514264337593543950335;當小數位為28的時候,為–7.9228162514264337593543950335~
7.9228162514264337593543950335常用于存儲貨幣值 數值類型的數據類型 用于存放文本的數據類型有兩個。文本類型的VB.NET數據類型見下表。 數 據 類 型表 示 方 式說 明字符串型String用于存放任何形式的字符串,包括一個字符或者多行字符字符型Char用于存放一個字符,它以0~65535之間數字的形式存儲文本類型的數據類型 其中需要說明的是: (1) 對于String類型,可以存放任何形式的字符串,它可以是純粹的文本,也可以是文本和數字的組合或者是數字、日期等。例如"This is a book. "和"12345"都是字符串。對于字符串類型的數據,可以進行相關的字符串操作,例如連接、截斷等。 (2) 對于Char類型,可以存儲的只是一個字符,注意,這個字符的存儲編碼必需是一個數字。在計算機系統中,可以顯示很多符號(不僅僅是英文字母),為了能夠正確地顯示,國際上有通用的標準(例如Unicode編碼),為每個字符設定了一個標準的數值來表示這個字符。其余的數據類型還有:Date數據類型、布爾數據類型和Object數據類型,其說明見下表。 數 據 類 型表 示 方 式說 明日期型Date必須用mm/dd/yyyy的格式表示,也可以存儲時間(可以存儲00:00:00~23:59:59之間的任何時間)布爾型Boolean取值為True和False對象型Object 其他數據類型 其中需要說明的是:在VB.NET中,對于Boolean類型的數據,當需要把布爾類型的值轉換為數值類型的時候,會把True當成1來處理,把False當作0來處理。當需要把VB.NET數值類型的值轉換為布爾類型的時候,會把0轉換為False,而把其他的非0數值轉換為True。
*.* 所有類型所有文件
| 回車上面 】的右邊 、這個鍵按住shift
一個|的左右兩邊為一組 左邊代表要顯示給用戶看的提示文本 右邊代表具體要過濾的文件類型
這個問題可以用注冊表解決。
Function getOpenCommand(fileExt As String) as String
Dim fileType as String, openCommand as String
fileExt = "." + fileExt
'取得文件擴展名在注冊表里的文件類型名稱
'比如.zip的類型名稱一般是zipfile
fileType = 讀取注冊表的classes_root下的子鍵(fileExt)的默認鍵值
'取得打開這種文件的程序
openCommand = 讀取注冊表的classes_root下的子鍵(fileType + "\shell\open\command")的默認鍵值
Return getOpenCommand
End Function
讀取注冊表的HKEY_CLASSES_ROOT下的子鍵的默認鍵值的方法可以在網上搜索到。
這樣getOpenCommand("doc")就可以得到一個字符串(包括引號):
"C:\Program Files\Word\word.exe" "%1"
這里只需要用Spilt函數把C:\Program Files\Word\word.exe分離出來就好了
1、vb.net ?完全符合面向對象的編程語言抽象、封裝、繼承的四大特性,而vb不支持繼承。
2、錯誤處理不同。
vb中只是On Error.....goto和On Errer Resume Next ,這些錯誤稱為非結構化異常處理。而在vb.net中采用的結構化異常處理機制,try...catch....finally控制。
3、兩者產生的窗體不同。
vb.net 允許創建不同類型的應用程序,例如,創建ASP.NET和ASP.NET Web 服務應用程序,還允許創建控制臺應用程序和作為桌面服務運行的應用程序。但是vb 只能創建Windows窗體。
4、數據庫訪問的差別。
vb6.0是通過ADO(Active X Data Objext)來實現對數據庫訪問。而vb.net 是通過ADO.NET來訪問數據庫。
擴展資料
Visual Basic(簡稱VB)是Microsoft公司開發的一種通用的基于對象的程序設計語言,為結構化的、模塊化的、面向對象的、包含協助開發環境的事件驅動為機制的可視化程序設計語言。是一種可用于微軟自家產品開發的語言。
“Visual” 指的是開發圖形用戶界面 (GUI) 的方法——不需編寫大量代碼去描述界面元素的外觀和位置,而只要把預先建立的對象add到屏幕上的一點即可。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 語言,是一種在計算技術發展歷史上應用得最為廣泛的語言。
Visual Basic源自于BASIC編程語言。VB擁有圖形用戶界面(GUI)和快速應用程序開發(RAD)系統,可以輕易的使用DAO、RDO、ADO連接數據庫,或者輕松的創建Active?X控件,用于高效生成類型安全和面向對象的應用程序 。
參考資料:百度百科-Visual Basic
Filter 屬性設置當前文件名篩選字符串,該字符串確定出現在對話框的“文件類型”框中的選項。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 獲取或設置文件對話框中當前選定篩選器的索引;
openFileDialog1.RestoreDirectory = true ;
對于每個篩選選項,篩選器字符串都包含篩選器說明,后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。
分享文章:vb.net文件類型,都是VBNET中的數據類型的選項是
文章來源:http://vcdvsql.cn/article30/heojpo.html
成都網站建設公司_創新互聯,為您提供服務器托管、全網營銷推廣、虛擬主機、品牌網站建設、網站排名、營銷型網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯