登录
首页 » VB源码 » VB 6.0 AscW将汉字转换为Unicode字符代码

VB 6.0 AscW将汉字转换为Unicode字符代码

于 2022-08-09 发布 文件大小:2.29 kB
0 96
下载积分: 2 下载次数: 1

代码说明:

本源码演示VB 6.0 如何将汉字转换为Unicode字符代码,在窗口中输入汉字,单击按钮,即可将汉字转换为Unicode字符,其实这个实现起来也比较简单,用VB内置函数AscW即可实现,代码的编写可参考如下:   Private Sub Command1_Click()    Text2.Text = AscW(Text1)   End Sub   Private Sub Command2_Click()    Unload Me   End Sub

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB.NET自制的看图工具软件
    VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
    2022-12-25 17:15:03下载
    积分:1
  • VB6 设计带记忆的DataGrid数据录入窗口
    VB6 设计带记忆的数据录入窗口,这种记忆实际上是将DataGrid临时输入的数据存入到数据库中了,是一个数据库应用范例,本例子中的数据库采用的Access。在本例中,用户临时对任意DataGrid行列操作时输入的内容,临时保存至数据库中,使用时及时读取,模拟中了记忆功能,方便了用户操作,不过未做测试,不知道数据量较大的时候,会不会对数据库造成压力,有心者可以自行测试哦。
    2023-04-17 21:20:02下载
    积分:1
  • vb.net 读取INI文件示例
    vb.net vs2008读取INI文件示例,ini文件名为 Send.ini,代码中包括了一个读ini API函数。   Ini文件说明:   [节名] []中的节名对应此API的第一参数   Name=内容 Name对应此API的第二参数   API的第三参数是没有取到匹配内容时返回的字符串;   API的第四参数是要返回的字符串;   API的第五参数是字符串缓冲的长度,一般255;   API的第六参数是INI文件的路径。
    2022-02-20 08:44:55下载
    积分:1
  • vb.net 故意引发错误演示全局异常捕获处理
    本程序主要是演示vb.net全局错误异常消息的捕获处理,程序运行后故意引发错误,并弹出消息处理框,类似于在VB.NET调试器中显示的错误消息,指出错误原因、错误位置和具体代码,方便程序员对错误及时纠正处理,程序运行效果如图所示。
    2022-09-01 05:15:03下载
    积分:1
  • VB6.0 使用递归过程实现阶乘运算
    VB6.0 使用递归过程实现阶乘运算   Function F(n As Integer) As Single    If n > 1 And n
    2022-04-27 22:53:13下载
    积分:1
  • VB.net 生成条形code128条
    VB.net绘制生成code128条形码的例子,另外还有EAN128、包括了Code128 A/B/C类型的条形码,程序非常好用,在文本框输入规定要求的数据,即时输入,即时生成。程序中为生成条形码,创建了一些函数,比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等,在VB.NET生成条形码的朋友,本范例源码是个很好的参考。
    2022-02-14 15:50:30下载
    积分:1
  • 简单的VB6 播放视频文件程序
    简单的VB6 播放视频文件程序,也算是一个简单的视频文件播放器吧,核心基于Windows中的msdxm.ocx控件,可控制播放文件开始暂停、快进快退等简单操作,在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
    2022-09-24 03:35:03下载
    积分:1
  • VB 6.0 将数组中的数据利用图表分析
    VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:   Private Sub Form_Load()   Dim i   i = Array(1, 2, 3, 4, 5, 6, 7)   Dim j   For j = 0 To UBound(i)    With MSChart1    .RowCount = UBound(i) + 1    .Row = j + 1    .ColumnCount = 1    .Data = i(j)    .RowLabel = i(j)    End With   Next j   End Sub
    2022-01-25 18:47:19下载
    积分:1
  • VB Seek语句设置随机访问文件的读取位置
    VB 设置随机访问文件的读取位置,本例中是使用Seek语句来设置随机访问文件的读取位置,代码编写方面,主要是掌握Seek的用法,以下代码将用户的单击行为作为触发Seek的事件条件:   Private Sub Command1_Click()    Dim str As String * 10    Open App.Path & "MyFile.txt" For Binary As #1    Seek #1, 5    Get #1, , str    Text1.Text = str    Close #1   End Sub   当用户单击按钮后,执行seek语句。
    2022-03-24 08:37:41下载
    积分:1
  • VB6.0 屏幕滚动字幕(文字滚动)
    VB6 屏幕滚动字幕,这个文字滚动区域被控制在屏幕的右下角,由右向左开始滚动,中间的高度可以调节,通过调节Me.Top = Screen.Height - Me.Height - 800参数,来改变文字滚动区域距离屏幕顶部的距离,文字滚动的实现是基于计时器和循环来实现,下面的代码可为你提供本效果的实现思路:   Label1.Caption = "这里定义需要滚动的文字内容: 用VB制作的文字滚动效果!"   Me.Left = Screen.Width   Me.Top = Screen.Height - Me.Height - 800   BeginPath Me.hWnd   SetBkMode Me.hWnd, TRANSPARENT   EndPath Me.hWnd   rgn = PathToRegion(Me.hWnd)   SetWindowRgn Me.hWnd, rgn, True   Timer1.Interval = 200   Timer1.Enabled = True   End Sub   Private Sub Timer1_Timer()    Me.Left = Me.Left - 100    If Me.Left < Label1.Width * (-1) Then    Timer1.Enabled = False    Me.Left = Screen.Width    Timer1.Enabled = True    End If   End Sub
    2022-05-21 14:58:30下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载