
正文
vb.net做位 vbnet ini
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
100分 急求在vb.net中怎样进行位操作
用bitarray类和BitVector32类实现
VB实现大致如下vb.net做位:
Imports System.Collections.Specialized
...
Dim bvData as BitVector32
Dim sec1 As BitVector32.Section = BitVector32.CreateSection(255)
Dim sec2 As BitVector32.Section = BitVector32.CreateSection(255,sec1)
Dim sec3 As BitVector32.Section = BitVector32.CreateSection(255,sec2)
Dim sec4 As BitVector32.Section = BitVector32.CreateSection(255,sec3)
Dim Buf(4096) as Byte 'receive byte size matched with DSP send data: 1024*4Byte
Dim recCount as Integer
Dim Data(1024) as long
....
For recCount = 0 To 1023
bvData(sec4) = buf(recByte*4)
bvData(sec3) = buf(recByte*4+1)
bvData(sec2) = buf(recByte*4+2)
bvData(sec1) = buf(recByte*4+3)
Data(recCount) = bvData.Data '这样数据肯定是-398
Next
....
相关问答
Q1: vb程序设计,急求!!给出代码,感激!
'10个text1,1个命令按钮
Private Sub Command1_Click()
Dim I As Integer
Dim J As Long '总共生成随机数的次数
Dim K As Integer '生成座位
Dim s(12) As Integer '座位中对应的人
For I = 1 To 10 '按人选座位
Do
J = J + 1
Randomize
K = Int(Rnd * 12 + 1)
Loop While (s(K) 0) '当作为中已经有人,重新选座位
s(K) = I '记录座位中的人
Next I
For I = 1 To 12
Text1(I - 1) = IIf(s(I) = 0, "Empty", Chr(64 + s(I)))
Next I
Debug.Print J
End Sub
Q2: VB.NET里怎么控制Form的位置
试过vb.net做位了~~这样行啊
但是不能分开设置 Location.X 和Location.Y 那是只读属性
一定要只设置为 .Location=New Point(0,0)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dd As New Form
dd.StartPosition = FormStartPosition.CenterScreen
dd.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer = 0
While i 500
System.Threading.Thread.Sleep(200)
Me.Location = New Point(Me.Location.X + 1, Me.Location.Y + 1)
i += 1
End While
End Sub
Q3: vb.net如何定义启动窗体的默认位置?
方法如下:
1、打开例1.1创建的工程。
2、选择窗体Form1并双击该窗体,出现窗体的调事件的过程代码体。
3、在窗体调用的过程代码体中编制如下过程代码:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、设置窗体Form1的SartUpPosition属性为2-屏幕中心,这样运行窗体可以发现,屏幕的大小与例1.6中通过属性设置的大小是一致的。
关于vb.net做位和vbnet ini的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。






