关于vb.netguid的信息

如何用VB.NET生成一个随机字符串

用法 RndString(xx) xx为随机数字长度

比如12位长度的随机字符串 则为 RndString(12)

字符串包含数字和大小写字母，函数如下：

Function RndString(ByVal l As Integer) As String

Randomize()

Dim R, i As Integer

Dim S As Char

Dim returnStr As String

returnStr = ""

'a-z 的ASCII码是：97-122

'A-Z 的ASCII码是：65-90

'0-9 的ASCII码是：48-57

For i = 1 To l

R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有26个

If R 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48

S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符

ElseIf R 36 Then '如果小于36，则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55

S = Chr(R + 55)

Else '如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61

S = Chr(R + 61)

End If

returnStr = returnStr + S

Next

RndString = returnStr

End Function

相关问答

Q1: 如何用VB.NET生成GUID

由于各种原因,开发人员使用全局唯一标识符(GUID)，例如，在类中给全局标识符赋值使用GUID或者是在处理数据库的时候使用GUID。GUID是微软分布计算环境（DCE）全局唯一标识符（UUID）的实现。GUID是128位全局唯一标识符，它是根据不断频繁变化的因素自动产生的。有一个相当小的可能性，那就是GUID的值可能都是零，或者是它可能等于其它的GUID。你能使用GUID通过所有需要唯一标识的计算机或者网络。GUID可以标识界面或者类对象。一个 GUID由一组8位的十六进制数和三组4位十六进制数（也就是一组12位十六进制数）组成。在下面的脚本中，我手动生成vb.netguid了GUID，我利用VB.NET在后面的应用中使用了它vb.netguid：Private Sub GenerateGUID() Dim sGUID As String sGUID = System.GUID.NewGUID.ToString() MessageBox.Show(sGUID) End Sub在这个例子中，我定义了一个字符串变量，sGUID，这个变量是用来保存将生成的GUID。然后我再将System.GUID.NewGUID（使用System.GUID名字空间）这个方法的返回值赋给sGUID，再使用ToString()将这个结果转换成字符串类型。这样就可以在消息对话框中显示这个结果了。注意：Visual Studio .NET允许你通过运行Visual Studio .NET Command Prompt交互生成GUID。可以访问MSDN网站获得更详细的信息。你也可以参考TechRepublic的另一篇文章“Generating and working with GUIDs in .NET。

Q2: VB.NET 在线程里用textbox，提示 线程间操作无效: 从不是创建控件“TextBox2”的线程访问它

程序vb.netguid的意思就是2个按钮vb.netguid，一个开始，一个停止。点开始按钮，程序抛出一个线程，计算2个GUID的值并在Label上显示，点停止线程结束。

namespace GUIDTEST

{

public partial class Form1 : Form

{

Thread t;

public Form1()

{

InitializeComponent();

t = new Thread(new ThreadStart(GuidProc));

}

private void button2_Click(object sender, EventArgs e)

{

t.Suspend();

}

private void button1_Click(object sender, EventArgs e)

{

t.Start();

}

public void GuidProc()

{

int i = 0;

while (true)

{

string s1 = Guid.NewGuid().ToString();

label4.Text = s1;

label4.Refresh();

string s2 = Guid.NewGuid().ToString();

label5.Text = s2;

label5.Refresh();

i++;

label6.Text = i.ToString();

}

}

}

}

调试失败。

Q3: vb.net 数据插入datagridview的指定列！

Dim n1 As String

n1 = InputBox("请输入数字")

Dim i As Integer '行数

datagridview1.Rows(0).Cells(1).Value = n1

For i = 1 To datagridview1.Rows.count-1

n1=n1+1

datagridview1.Rows(i).Cells(1).Value = n1

Next

......

Q4: vb.net的COM组件的编写问题

我想vb.netguid了两种思路，winform没有findControl，只有个this.Controls.Contains("textBox1")，因此除了遍历没办法了。。。

思路1vb.netguid：遍历Controls，具体你自己完善下，

if(this.Controls.Count0)

{

foreach(Control c in this.Controls)

if(c.GetTepy==Tepyof(TextBox))

string str += ((TextBox)c).Text;

}

Q5: vb.net问题，如何根据句柄获取ihtmldocument2接口，网上都是c或者c＃，希望学习大侠代码，谢谢

我这有vb.net的，知道句柄就可获取，用C#改了好久才可以。

Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Int32, ByRef riid As System.Guid, ByVal wParam As Int32, ByRef ppvObject As mshtml.IHTMLDocument) As Int32

Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Int32

Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hWnd As Int32, ByVal msg As Int32, ByVal wParam As Int32, ByVal lParam As Int32, ByVal fuFlags As Int32, ByVal uTimeout As Int32, ByRef lpdwResult As Int32) As Int32

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

Const SMTO_ABORTIFHUNG = H2

用这些api可实现，你没给分，我也舍不得拿出代码，费了很多时间才搞定的代码

关于vb.netguid和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。