BYR Achieve · 镜像论坛

from http://www.olanguage.org/ this is a sample there .位模式 32 //头文件引用 .引用头 windows.ohe .引用头 kernel32.ohe .引用头 user32.ohe .引用头 gdi32.ohe //库文件引用 .引用库 gdi32.lib .引用库 user32.lib .引用库 kernel32.lib //宏定义 .宏开始 ICO_MAIN = 1000h DLG_MAIN = 1 IDB_1 = 1 IDB_2 = 2 IDC_ONTOP = 101 IDC_SHOWBMP = 102 IDC_ALOW = 103 IDC_MODALFRAME = 104 IDC_THICKFRAME = 105 IDC_TITLETEXT = 106 IDC_CUSTOMTEXT = 107 IDC_BMP = 108 IDC_SCROLL = 109 IDC_VALUE = 110 .宏结束 .数据段 .段结束 .预留段整型主程序句柄整型位图1句柄整型位图2句柄整型水平滚动条位置 .段结束 .常量段单字符串窗口标题文本1[30] = "O语言控件使用的实例 !"0x00 单字符串窗口标题文本2[30] = "你的窗口标题已经改变 !"0x00 单字符串窗口标题文本3[30] = "自定义窗口标题文本"0x00 .段结束 .代码段函数主函数() //代码从这里开始执行 GetModuleHandle(NULL) 传送累加三二=>主程序句柄 DialogBoxParam(主程序句柄,DLG_MAIN,NULL,主对话框过程,NULL) ExitProcess(NULL) 函数结束函数主对话框过程(整型窗口句柄,整型窗口消息,整型参数一,整型参数二) 单字符串字符缓冲区[128] 压栈基址三二压栈目的变址三二压栈源变址三二传送累加三二<=窗口消息如果: 比较累加三二<=WM_CLOSE 不等跳转否则如果1 EndDialog(窗口句柄,NULL) DeleteObject(位图1句柄) DeleteObject(位图2句柄) 跳转结束如果否则如果1: 比较累加三二<=WM_INITDIALOG 不等跳转否则如果2 //设置标题栏图标 LoadIcon(主程序句柄,ICO_MAIN) SendMessage(窗口句柄,WM_SETICON,ICON_BIG,累加三二) //初始化组合框 SendDlgItemMessage(窗口句柄,IDC_TITLETEXT,CB_ADDSTRING,0,&窗口标题文本1) SendDlgItemMessage(窗口句柄,IDC_TITLETEXT,CB_ADDSTRING,0,&窗口标题文本2) SendDlgItemMessage(窗口句柄,IDC_TITLETEXT,CB_ADDSTRING,0,&窗口标题文本3) SendDlgItemMessage(窗口句柄,IDC_TITLETEXT,CB_SETCURSEL,0,0) GetDlgItem(窗口句柄,IDC_CUSTOMTEXT) EnableWindow(累加三二,FALSE) LoadBitmap(主程序句柄,IDB_1) 传送位图1句柄<=累加三二 LoadBitmap(主程序句柄,IDB_2) 传送位图2句柄<=累加三二 //初始化单选钮和复选框 CheckDlgButton(窗口句柄,IDC_SHOWBMP,BST_CHECKED) CheckDlgButton(窗口句柄,IDC_ALOW,BST_CHECKED) CheckDlgButton(窗口句柄,IDC_THICKFRAME,BST_CHECKED) //初始化滚动条 SendDlgItemMessage(窗口句柄,IDC_SCROLL,SBM_SETRANGE,0,100) 跳转结束如果 //处理系统菜单消息否则如果2: 比较累加三二<=WM_COMMAND 不等跳转否则如果3 传送累加三二<=参数一如果A: 比较累加一六<=IDCANCEL 不等跳转否则如果A1 EndDialog(窗口句柄,NULL) DeleteObject(位图1句柄) DeleteObject(位图2句柄) 跳转结束如果A //更换图片否则如果A1: 比较累加一六<=IDOK 不等跳转否则如果A2 传送累加三二<=位图1句柄交换累加三二<=位图2句柄传送累加三二=>位图1句柄 SendDlgItemMessage(窗口句柄,IDC_BMP,STM_SETIMAGE,IMAGE_BITMAP,累加三二) 跳转结束如果A //设置是否“总在最前面” 否则如果A2: 比较累加一六<=IDC_ONTOP 不等跳转否则如果A3 IsDlgButtonChecked(窗口句柄,IDC_ONTOP) 如果B: 比较累加三二<=BST_CHECKED 不等跳转否则B SetWindowPos(窗口句柄,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE) 跳转结束如果B 否则B: SetWindowPos(窗口句柄,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE) 结束如果B: 跳转结束如果A //演示隐藏和显示图片控件否则如果A3: 比较累加一六<=IDC_SHOWBMP 不等跳转否则如果A4 GetDlgItem(窗口句柄,IDC_BMP) 传送基址三二<=累加三二 IsWindowVisible(基址三二) 如果C: 比较累加三二<=TRUE 不等跳转否则C ShowWindow(基址三二,SW_HIDE) 跳转结束如果C 否则C: ShowWindow(基址三二,SW_SHOW) 结束如果C: 跳转结束如果A //演示允许和灰化“更换图片”按钮否则如果A4: 比较累加一六<=IDC_ALOW 不等跳转否则如果A5 IsDlgButtonChecked(窗口句柄,IDC_ALOW) 如果D: 比较累加三二<=BST_CHECKED 不等跳转否则D 传送基址三二<=TRUE 跳转结束如果D 否则D: 异或基址三二<=基址三二结束如果D: GetDlgItem(窗口句柄,IDOK) EnableWindow(累加三二,基址三二) 跳转结束如果A 否则如果A5: 比较累加一六<=IDC_MODALFRAME 不等跳转否则如果A6 跳转结束如果A 否则如果A6: 比较累加一六<=IDC_THICKFRAME 不等跳转否则如果A7 GetWindowLong(窗口句柄,GWL_STYLE) 或累加三二<=WS_THICKFRAME SetWindowLong(窗口句柄,GWL_STYLE,累加三二) 跳转结束如果A //演示处理下拉式组合框否则如果A7: 比较累加一六<=IDC_TITLETEXT 不等跳转否则如果A8 逻辑右移累加三二<=16 如果E: 比较累加一六<=CBN_SELENDOK 不等跳转结束如果E SendDlgItemMessage(窗口句柄,IDC_TITLETEXT,CB_GETCURSEL,0,0) 如果F: 比较累加三二<=2 不等跳转否则F GetDlgItem(窗口句柄,IDC_CUSTOMTEXT) EnableWindow(累加三二,TRUE) 跳转结束如果F 否则F: 传送累加三二=>基址三二 SendDlgItemMessage(窗口句柄,IDC_TITLETEXT,CB_GETLBTEXT,基址三二,&字符缓冲区) SetWindowText(窗口句柄,&字符缓冲区) GetDlgItem(窗口句柄,IDC_CUSTOMTEXT) EnableWindow(累加三二,FALSE) 结束如果F: 结束如果E: 跳转结束如果A //在文本框中输入文字否则如果A8: 比较累加一六<=IDC_CUSTOMTEXT 不等跳转结束如果A GetDlgItemText(窗口句柄,IDC_CUSTOMTEXT,&字符缓冲区,?字符缓冲区) SetWindowText(窗口句柄,&字符缓冲区) 跳转结束如果A 结束如果A: 跳转结束如果 //单击鼠标右键时弹出一个POPUP菜单否则如果3: 比较累加三二<=WM_RBUTTONDOWN 不等跳转否则如果4 跳转结束如果否则如果4: 比较累加三二<=WM_HSCROLL 不等跳转否则跳转结束如果否则: 传送累加三二<=FALSE 跳转函数结束地址结束如果: 传送累加三二<=TRUE 函数结束地址: 出栈基址三二出栈目的变址三二出栈源变址三二函数结束 //...... .段结束

一个有意思的东西