重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
.NET 程序写成你这样也算厉害了,好好看看下面的代码
成都创新互联公司自2013年起,先为横县等服务建站,横县等地企业,进行企业商务咨询服务。为横县企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Sub Main()
Console.WriteLine("请输入一个二进制数")
Console.WriteLine(bin2int(Console.ReadLine()))
Console.ReadKey()
End Sub
Function bin2int(ByVal bin As String) As Integer
Dim i As Long
For i = 1 To bin.Length
bin2int = bin2int * 2 + Val(Mid(bin, i, 1))
Next i
End Function
Dim Adoact As New ADODB Recordset ACCESS 数据库的ST表
Dim i As Integer
AdoRst Open ST DRIVER={MySQL ODBC Driver};SERVER= ;DATABASE=mydb;;USER=root;PASSWORD=********;OPTION= ; adOpenStatic adLockOptimistic
Adoact Open st Provider=Microsoft Jet OLEDB ;Data Source=C:ks mdb;Persist Security Info=False
Dim tt() As Byte
Dim ss() As Byte
tt = adoact Fields( ) Value
ss = adoact Fields( ) Value
AdoRst AddNew
AdoRst Fields( ) Value = i
AdoRst Fields( ) Value = tt
AdoRst Fields( ) Value = ss
AdoRst Update
文本方式查看只有几个字符
进制方式查看
lishixinzhi/Article/program/net/201311/13595
首先引入System.IO命名空间
Imports System.IO
然后使用文件流来读入数组:
Dim bytes() As Byte
Using fs As New FileStream(文件路径,FileMode.Open)
ReDim bytes(fs.Length-1)
fs.Read(bytes,0,fs.Length)
fs.Close()
End Using
这样bytes就是整个文件的所有字节了
从字节生成Image:
Dim img As Image = Image.FromStream(New MemoryStream(bytes))
img就是图片了