窗体输出

龙城飞扬

这是小生第一次，独立制作模块，虽然只有一条命令，但是却实现了和VB中“print”方法完全一样的功能，大大们不要嘲讽，或可以直接略过！！！{:soso_e121:}

AHHFLQ

不错不错，谢谢分享！

冷死了

支持必须支持

精yì求精

不错不错，自绘不会

龙城飞扬

萧阳天 发表于 2012-9-29 15:32
窗口自绘文本嘛；

果然是大大啊！DLL中的函数，一条不差，我是新手啊！虽然不是看的你的教程，但也是我刚刚学的，大大收我当徒弟吧！

萧阳天

窗口自绘文本嘛；

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 i, 整数型
   
5. 
   
6. .子程序 _按钮1_被单击
   
7. .局部变量 hdc, 整数型
   
8. .局部变量 Text, 文本型
   
9. 
   
10. i ＝ i ＋ 16
    
11. Text ＝ “萧阳天，Windows api 一日一练”
    
12. hdc ＝ 取设备场景_ (取前台窗口_ ())
    
13. 设置背景模式_ (hdc, 1)
    
14. 文本绘图_ (hdc, 0, i, Text, 取文本长度 (Text))
    
15. 释放设备场景_ (取前台窗口_ (), hdc)
    

复制代码

1. .版本 2
   
2. 
   
3. .DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , ReleaseDC
   
4.     .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
   
5.     .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄
   
6. 
   
7. .DLL命令 取设备场景_, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
   
8.     .参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;
   
9. 
   
10. .DLL命令 文本绘图_, 整数型, "gdi32.dll", "TextOutA", , Long，非零表示成功，零表示失败。会设置GetLastError
    
11.     .参数 设备场景, 整数型, , hdc，设备场景的句柄
    
12.     .参数 横, 整数型, , x，绘图的起点，采用逻辑坐标
    
13.     .参数 纵, 整数型, , y，绘图的起点，采用逻辑坐标
    
14.     .参数 内容, 文本型, , lpstring，欲描绘的字串
    
15.     .参数 内容数量, 整数型, , ncount，字串中要描绘的字符数量
    
16. 
    
17. .DLL命令 取前台窗口_, 整数型, "user32", "GetForegroundWindow"
    
18. 
    
19. .DLL命令 设置背景模式_, 整数型, "gdi32", "SetBkMode", , SetBkMode，Long，前一个背景模式的值
    
20.     .参数 设备场景句柄, 整数型, , hdc，设备场景的句柄
    
21.     .参数 方式, 整数型, , nBkMode，下述常数之一：OPAQUE用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙TRANSPARENT透明处理，即不作上述填充
    

复制代码

紅顏じ亦沉淪ジ

我感觉你发错版块了。。。。。

支持一下~~