VB6中调用炫彩模块 ----按钮类

无名

按钮类.rar (421.49 KB, 下载次数: 800)

2013-2-9 14:22 上传

点击文件名下载附件
炫彩界面VB6调用-按钮

         坛主的炫彩界面库确实非常强大，可以很自由的扩展，真正做到无控件，完全自主绘图，小巧可用，逻辑上没有窗口，直接在父窗口绘图，而且此库可以被很多语言调用，每种语言的调用方式不同
        现在，我用Vb6以API方式调用，做一个简单示例，【能力有限，仅以按钮类为例】，作个交流吧。偶是新人，第一次发帖，有不到之处，希望各位大虾多多指教。
        具体代码见附件中，其中还存在一些疑惑，想请各路高手帮忙看一下。
       【1】按钮类里面设置文本值，根据DrawText函数中的Flag设置后，显示不正确，不知道为何原因。
        '设置文字左对齐方式
        Call XBtn_SetTextAlign(hButton4, DT_LEFT Or DT_VCENTER Or DT_CENTER)
          生成后就出现在上面了。
        【2】在VB的IDE环境中调试，退出时保护性出错，编译后就好了，但是有时候编译后不时的也会出错，是否是VB6的关系造成的。
        【3】'获取按钮元素文本内容函数
                 Public Declare Function XBtn_GetText Lib "XCGUI.dll" _
                     (ByVal hEle As Long) As Long        '返回值为UniCode类型的BSTR指针
                                                                       
                 'Public Declare Function XBtn_GetText Lib "XCGUI.dll" _
                     (ByVal hEle As Long) As String       '返回字符串
                  获取按钮的文本返回函数，返回的应该是一个指针指向的UNICode字符串，但是不管我是声明的API函数返回指针地址，还是字符串本身，都产生保护性错误。不知为何。
         【4】这个库好像不是面向对象开发的，如果某些对象要有事件时，写相关代码有点麻烦，事件中用到回调函数，回调函数地址比较麻烦，有没有可以用CopyMemeory来代替AddressOf来取回调函数指针地址的方法。而且AddressOf必须在BAS模块中声明。
               希望大家能多多给予帮助，谢谢。
                快过年了，祝大家蛇年吉祥，恭喜发财。
        

dasemimi

不错，支持一个！

暗夜游魂

没下载到。。。。谁给我一份。我也测试一下vb6下面的效果

无名

暗夜游魂 发表于 2014-2-9 00:45
没下载到。。。。谁给我一份。我也测试一下vb6下面的效果

给我你的邮箱地址