vb.net输出字符串 vbnet字符串函数

在vb.net中怎么把一个字符串怎么输出到当前计算机桌面上显示呢

在vb2008下，form具有TransparencyKey属性，将窗体的背景色和TransparencyKey颜色设置一致时，窗体会完全透明，显示文字时，给文字不同的颜色，文字会直接显示当前屏幕之上设置form1属性，TransparencyKey=黑色，BackColor=黑色 绘制窗体的代码，给文字以不同颜色 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、微信平台小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了衡东免费建站欢迎大家使用！

e.Graphics.DrawString("你好", New Font("黑体", 60, FontStyle.Bold), Brushes.Blue, 0, 0)

End Sub 可以设置窗体置顶属性，永远前端显示也可以显示在桌面，用setparent，父窗体为桌面

VB.NET怎么输出指定字符串文本文件

Dim strFilePath As String =SaveFileDialog1.FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath， True） 'true是指以追加的方式打开指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

如何用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

vb.net 怎么用print打印字符串到窗口？

vb的函数已经不适合vb.net了，想学vb，得装个vb6。用vb.net的话，使用Debug.WriteLine("hello world")，可以在输出窗口查看到这个信息，这是最简单的，想直接写窗体就得多写几行代码了，具体搜索一下

vb.net 如何实现输出一串字符串中的所有字符以及每个字符的出现次数？

使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。

Private Sub Command1_Click()

s = InputBox("请输入一个英文字符串：")

Dim a(128) As Integer

For i = 1 To Len(s)

t = Asc(Mid(s, i, 1))

a(t) = a(t) + 1

Next i

For i = 1 To 127

If a(i) 0 Then Print Chr(i); ":"; a(i)

Next i

End Sub

用VB.NET将字节数组转换为字符串

最近我说明了用VB NET将字符串转换成字节数组的方法 如果你需要将一个字节数组转换成字符串 可以使用BitConverter ToString或Covert ToBase String方法 下面我提供实例说明如何用上两种方法进行转换

字节数组用法

如果你准备恢复用二进制格式保存的文本 在System Text命名空间中调用适当编码对象的GetString方法

使用System BitConverter类是将一个字节数组转换成字符串的最快捷的方法 这个类为基本数据类型和字节数组之间的转换提供方法 要使用这个方法 使用超载的ToString方法接受一个字节数组为参数 在这种情况下 字符串中包括字节数组的每一个十六进制格式的值 数值间用破折号隔开 使用字符串没有办法自动撤销转换 恢复原始的字节数组 查看列表A中的例子

Listing A

Private Sub ConvertByteArrayToString()        Dim btText() As Byte = { }        Dim strText As String        strText = BitConverter ToString(btText)        MessageBox Show(strText)    End Sub     通过System Convert类的ToBase String和FromBase Stirng方法 利用Base 编码 也可以把字节数组转换成字符串 在Base 编码中 每个三字节的序列被转换为四个字节 每个Base 编码字符为值域中 个可能值中的一个 查看列表B中的例子

Listing B

Private Sub ConvertByteArrayToString()        Dim btText() As Byte = { }        Dim strText As String        strText = Convert ToBase String(btText)        MessageBox Show(strText)    End Sub     以上两种方法都可以用来建立一个二进制数据表示法 记住 为了将一个字节数组恢复成真实的文本信息 你必须使用正确的编码类

lishixinzhi/Article/program/net/201311/11708