找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
楼主: Golden Blonde

【VB6】【全网首发】在经典控件上使用UNICODE的方案(第2季)

[复制链接]
发表于 2023-7-6 10:27:47 | 显示全部楼层
占座
回复

使用道具 举报

发表于 2023-7-24 20:05:39 | 显示全部楼层
让我看看,学习学习!
回复 赞! 靠!

使用道具 举报

发表于 2023-8-3 12:52:22 | 显示全部楼层
不会吧,有这么完美的办法吗
回复 赞! 靠!

使用道具 举报

发表于 2023-8-19 14:18:47 | 显示全部楼层
好好的來學習一下程式技術。
回复 赞! 靠!

使用道具 举报

发表于 2023-9-9 22:52:31 | 显示全部楼层
看看有何不同
回复 赞! 靠!

使用道具 举报

发表于 2023-9-13 07:02:49 | 显示全部楼层
向大佬学习
回复 赞! 靠!

使用道具 举报

发表于 2023-10-8 21:18:38 | 显示全部楼层
回复

使用道具 举报

发表于 2023-10-19 19:20:39 | 显示全部楼层
感谢大佬分享
回复 赞! 靠!

使用道具 举报

发表于 2023-11-13 14:23:10 | 显示全部楼层
看看看,牛B大法了
回复 赞! 靠!

使用道具 举报

发表于 2023-12-3 13:54:16 | 显示全部楼层
今天就遇到这个问题,刚好看到这文章。
回复 赞! 靠!

使用道具 举报

发表于 2024-2-22 23:07:08 | 显示全部楼层
感谢分享,下载学习!
回复 赞! 靠!

使用道具 举报

发表于 2024-3-9 21:07:03 | 显示全部楼层
很有趣的题目
回复 赞! 靠!

使用道具 举报

发表于 2024-5-20 15:46:09 | 显示全部楼层
为了看unicode难题
回复 赞! 靠!

使用道具 举报

发表于 2024-5-27 08:18:28 | 显示全部楼层
本帖最后由 studyczb 于 2024-5-27 08:27 编辑

谢谢,这个真用得上,不知道win10下的那个乱码问题(有微软输入法的)能解决吗?
回复 赞! 靠!

使用道具 举报

发表于 2024-6-14 14:28:55 | 显示全部楼层
繼續學習第二季,謝謝分享
回复 赞! 靠!

使用道具 举报

发表于 2024-7-11 06:02:35 | 显示全部楼层
谢谢!
回复

使用道具 举报

发表于 2024-7-11 07:44:11 | 显示全部楼层
本帖最后由 tlwh163 于 2024-7-11 07:45 编辑

我记得用粗暴的循环遍历对话框的控件ID 可以找到 Label控件的ID 以前干过 大概是6w多的ID 手头没有VB6了 只有遥远的记忆
找到了ID是不是也可以用DEF消息函数 去设置控件标题?
回复 赞! 靠!

使用道具 举报

发表于 2024-7-13 20:33:53 | 显示全部楼层
学习一下
回复

使用道具 举报

发表于 2024-7-14 15:42:00 | 显示全部楼层
本帖最后由 tlwh163 于 2024-7-14 17:58 编辑

'###############################################################################
' UNICODE VERSION MSGBOX
'###############################################################################
Public Function MsgBoxW(Optional ByVal hwnd As Long = 0, Optional ByVal lpText As String = "", Optional ByVal lpCaption As String = "", Optional ByVal wType As Long = 0) As Long
    MsgBoxW = MessageBoxW(hwnd, StrPtr(lpText), StrPtr(lpCaption), wType)
End Function

这个我有点不理解 为什么是 Byval as String , VB会传进来什么? 是一个ANSI副本吧, ByRef as String为什么不行呢?

Public Function MsgBoxW(Prompt As String, Optional ByVal Buttons As VbMsgBoxStyle = 0, Optional Title As String = vbNullChar) As VbMsgBoxResult
    If Title = vbNullChar Then Title = App.Title
    MsgBoxW = MessageBoxW(0, StrPtr(Prompt), StrPtr(Title), Buttons)
End Function

这样的话 跟VB6使用习惯一致, 不过本程序的代码 调用到的地方就要调整一下 好在改动不多
回复 赞! 靠!

使用道具 举报

发表于 2024-7-15 22:17:20 | 显示全部楼层
回复可见,学习一下
回复 赞! 靠!

使用道具 举报

本版积分规则

QQ|Archiver|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2024-11-23 17:26 , Processed in 0.028971 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表