vb.net取模 vb 取模 - 经验交流

在VB.net中如何取变量、结构、数组、函数的地址？当然可以vb.net取模的vb.net取模，需要System.Runtime.InteropServices 命名空间中vb.net取模的 Marshal 类
Imports System.Runtime.InteropServices '这里一定要有
Public Class Form1
Public Structure m_Point
Dim x As Integer
Dim y As Integer
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = 50
Dim ai() As Integer = {1, 2, 3, 4, 5}
Dim pi As IntPtr = GCHandle.Alloc(i, GCHandleType.Pinned).AddrOfPinnedObject() '取得整形变量的指针
Dim pai As IntPtr = GCHandle.Alloc(ai, GCHandleType.Pinned).AddrOfPinnedObject() '取得整形数组首地址指针
MsgBox(Marshal.ReadInt32(pi, 0)) '读回整形变量指针指向的值
MsgBox(Marshal.ReadInt32(pai, 0 * 4)) '读回数组的第一个元素
MsgBox(Marshal.ReadInt32(pai, 1 * 4)) '读回数组的第二个元素
MsgBox(Marshal.ReadInt32(pai, 2 * 4)) '读回数组的第三个元素
'-----下面是结构--------------------------
Dim m_p As New m_Point
m_p.x = 100
m_p.y = 50
Dim pm_p As IntPtr = GCHandle.Alloc(m_p, GCHandleType.Pinned).AddrOfPinnedObject() '取得结构首地址指针
MsgBox(Marshal.ReadInt32(pm_p, 0 * 4)) '读回结构的第一个值
MsgBox(Marshal.ReadInt32(pm_p, 1 * 4)) '读回结构的第二个值
End Sub
End Class
vb.net 2010 如何把文本框中的数字提取出来源代码如下：（代码写在按钮点击事件里）
Label1.Text = ""
Label2.Text = ""
Dim a As String = TextBox1.Text
Dim b As String = TextBox2.Text
For x = 1 To a.Length
Dim txt As String = Mid(a, x, 1)
If txt Like "#" Then
Label1.Text = Label1.Texttxt
End If
Next
For x = 1 To b.Length
【vb.net取模 vb 取模】Dim txt As String = Mid(b, x, 1)
If txt Like "#" Then
Label2.Text = Label2.Texttxt
End If
Next
此方法用的是mid 将一个字符串拆分成单个字符，然后用like运算符进行对比是否为数字，关于这两个函数的用法如果不懂的可以自己搜索下，此外还有别的方法，这里就不多说了
vb.net 有没有vb6中,像 move方法一样,可以一次过定下窗体的位置与尺寸的语句好像有。
VB6的代码
Me.Move ((Screen.Width - Me.Width) / 2), ((Screen.Height - Me.Height) / 2)
转成VB 。NET的是下面这样的，你对照下看看
Me.SetBounds((System.Windows.Forms.Screen.GetBounds(Me).Width / 2) - (Me.Width / 2), _
(System.Windows.Forms.Screen.GetBounds(Me).Height / 2) - (Me.Height / 2), _
Me.Width, Me.Height, System.Windows.Forms.BoundsSpecified.Location)
转成C#的代码
this.SetBounds((Screen.GetBounds(this).Width/2) - (this.Width/2),
(Screen.GetBounds(this).Height/2) - (this.Height/2),
this.Width, this.Height, BoundsSpecified.Location);
VB.NET中的一个方法用replace函数
Replace(expression, find, replacewith)
Replace函数语法有如下几部分：
expression 字符串表达式，包含要替换的子字符串。
find 要搜索到的子字符串。
replacewith 用来替换的子字符串。
以你的要求:
str=Replace(A,"A","a")
如果你要做一个学生姓名对应一个学生学号，你输了姓名，学号自动就显示出来了.
最好通过数据库实现.
select studentid from student where studentname=输入姓名
vb.net 中在模块（module）里如何实现委托委托三个步骤
1、声明委托用Delegate 声明一个委托类型参数要和被委托的方法一样例如Delegate Function a(byval x as string)as string
2、实例化委托dimt as new a(AddressOfFunction Name)
3.通过 t(参数)或者t.Invoke(参数调用委托)