API绘制单选框和复选框模块

场景 ＝ CreateDCAsNull (“DISPLAY”, 0, 0, 0) ' 创建与系统兼容的空场景
源场景 ＝ CreateCompatibleDC (场景) ' 创建内存场景
素材场景 ＝ CreateCompatibleDC (场景) ' 创建内存场景
源位图句柄 ＝ CreateDIBitmap (场景, 图片头, 4, 素材图片, BMP表, 0)
SelectObject (源场景, 源位图句柄) ' 选入源位图
GetObjectAPI (源位图句柄, 24, 位图信息) ' 取位图信息
目标位图句柄 ＝ CreateCompatibleBitmap (源场景, 位图信息.bmWidth － 18, 位图信息.bmHeight) ' 产生一个空的位图句柄
SelectObject (素材场景, 目标位图句柄) ' 选入目标位图
BitBlt (素材场景, 0, 0, 位图信息.bmWidth, 位图信息.bmHeight, 源场景, 18, 0, 13369376) ' 画到素材场景
系统场景 ＝ GetDC (0)
字体表.lfHeight ＝ －MulDiv (9, GetDeviceCaps (系统场景, 90), 72) ' 根据设备产生9号字的相应值
字体表.lfWeight ＝ 400 ' 粗体值为700
字体表.lfCharSet ＝ 134
字体句柄 ＝ CreateFontIndirect (字体表) ' 产生字体
ReleaseDC (0, 系统场景)
易语言API绘制单选框和复选框模块例子。