论坛 › 源码分享 › 【VB6】【全网首发】在经典控件上使用UNICODE的方案（第2季）

liu496324 发表于 2023-7-6 10:27:47

占座

二十六 发表于 2023-7-24 20:05:39

让我看看,学习学习!

antclt 发表于 2023-8-3 12:52:22

不会吧,有这么完美的办法吗

get43639 发表于 2023-8-19 14:18:47

好好的來學習一下程式技術。
:)

btrong 发表于 2023-9-9 22:52:31

看看有何不同

阿呆哥哥 发表于 2023-9-13 07:02:49

向大佬学习

cheweidian 发表于 2023-10-8 21:18:38

:)

Sunny 发表于 2023-10-19 19:20:39

感谢大佬分享

xxdoc 发表于 2023-11-13 14:23:10

看看看，牛B大法了

qq2570329526 发表于 2023-12-3 13:54:16

今天就遇到这个问题，刚好看到这文章。

QZhi 发表于 2024-2-22 23:07:08

感谢分享，下载学习！

Nicol 发表于 2024-3-9 21:07:03

很有趣的题目

zhongez 发表于 2024-5-20 15:46:09

为了看unicode难题

studyczb 发表于 2024-5-27 08:18:28

本帖最后由 studyczb 于 2024-5-27 08:27 编辑

谢谢，这个真用得上，不知道win10下的那个乱码问题（有微软输入法的）能解决吗？

mugenknight 发表于 2024-6-14 14:28:55

繼續學習第二季，謝謝分享

schtg 发表于 2024-7-11 06:02:35

谢谢！

tlwh163 发表于 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

学习一下

tlwh163 发表于 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使用习惯一致, 不过本程序的代码 调用到的地方就要调整一下 好在改动不多

sandruse 发表于 2024-7-15 22:17:20

回复可见，学习一下

查看完整版本: 【VB6】【全网首发】在经典控件上使用UNICODE的方案（第2季）