易语言 编辑框获取焦点失去焦点 问题

版本

2

子程序

__启动窗口_创建完毕

编辑框1文本颜色

＝

#浅灰

编辑框1内容

＝

“请输入您的帐号！”

子程序

_编辑框1_鼠标左键被按下,

逻辑型

参数

横向位置,

整数型

参数

纵向位置,

整数型

参数

功能键状态,

整数型

如果真

(编辑框1内容

＝

“请输入您的帐号！”)

编辑框1文本颜色

＝

#黑色

编辑框1内容

＝

“”

如果真结束

子程序

_编辑框1_失去焦点

如果真

(编辑框1内容

＝

“”)

编辑框1文本颜色

＝

#浅灰

编辑框1内容

＝

“请输入您的帐号！”

如果真结束

子程序

__启动窗口_鼠标左键被按下,

逻辑型

参数

横向位置,

整数型

参数

纵向位置,

整数型

参数

功能键状态,

整数型

_启动窗口获取焦点

()

版本 2

支持库 xplib

支持库 iext

程序集 窗口程序集1

程序集变量 b, 文本型

程序集变量 框, 框

程序集变量 开始音乐, 字节集

程序集变量 结束音乐, 字节集

程序集变量 人数, 整数型

程序集变量 人数数组, 文本型, , "0"

程序集变量 n, 整数型

程序集变量 文件数组, 文本型, , "0"

子程序 __启动窗口_创建完毕

XP风格 (#蓝色风格)

选择夹左边 ＝ (取屏幕宽度 () － 选择夹宽度) ÷ 2

选择夹顶边 ＝ (取屏幕高度 () － 选择夹高度) ÷ 2

框1标记 ＝ “1”

框2标记 ＝ “2”

框3标记 ＝ “3”

框4标记 ＝ “4”

框5标记 ＝ “5”

框6标记 ＝ “6”

选择夹现行子夹 ＝ 1

透明标签1左边 ＝ (取屏幕宽度 () － 透明标签1宽度) ÷ 2

选择夹2顶边 ＝ 选择夹高度 ＋ 选择夹顶边

选择夹2左边 ＝ (取屏幕宽度 () － 选择夹2宽度) ÷ 2

初始化 ()

人数 ＝ 取数组成员数 (文件数组)

_一个人_被选择 ()

注册热键程序 (_启动窗口取窗口句柄 (), 0, #F1键, &配置设置)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #回车键, &子程序1)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #键1, &_一个人_被选择)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #键2, &_二个人_被选择)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #键3, &_三个人_被选择)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #键4, &_四个人_被选择)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #键5, &_五个人_被选择)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #键6, &_六个人_被选择)

注册热键程序 (_启动窗口取窗口句柄 (), 0, #Esc键, &_退出_被选择)

子程序 子程序1

n ＝ n ＋ 1

如果 (n ％ 2 ＝ 0)

_按钮2_被单击 ()

否则

_按钮1_被单击 ()

如果结束

子程序 配置设置

载入 (系统设置窗口, , 真)

系统设置窗口可视 ＝ 真

子程序 _时钟1_周期事件

置随机数种子 ()

框1 ＝ 读入文件 (文件数组 [取随机数 (1, 人数)])

子程序 抽奖停

局部变量 a, 整数型

局部变量 i, 整数型

b ＝ “”

置随机数种子 ()

计次循环首 (6, i)

a ＝ 取随机数 (1, 人数)

判断循环首 (寻找文本 (b, 到文本 (a), 1, 假) ≠ -1)

a ＝ 取随机数 (1, 人数)

判断循环尾 ()

框 ＝ 取标记组件 (i)

框 ＝ 读入文件 (文件数组 [a])

b ＝ b ＋ “,” ＋ 到文本 (a)

计次循环尾 ()

子程序 _一个人_被选择

初始化 ()

n ＝ 0

按钮1禁止 ＝ 假

按钮1获取焦点 ()

框1可视 ＝ 真

框2可视 ＝ 假

框3可视 ＝ 假

框4可视 ＝ 假

框5可视 ＝ 假

框6可视 ＝ 假

框1左边 ＝ (选择夹宽度 － 框1宽度) ÷ 2

子程序 _二个人_被选择

初始化 ()

n ＝ 0

按钮1禁止 ＝ 假

按钮1获取焦点 ()

框1可视 ＝ 真

框2可视 ＝ 真

框3可视 ＝ 假

框4可视 ＝ 假

框5可视 ＝ 假

框6可视 ＝ 假

框1左边 ＝ (选择夹宽度 － 框1宽度 × 2 － 5) ÷ 2

框2左边 ＝ 框1左边 ＋ 框1宽度 ＋ 5

子程序 _三个人_被选择

初始化 ()

n ＝ 0

按钮1禁止 ＝ 假

按钮1获取焦点 ()

框1可视 ＝ 真

框2可视 ＝ 真

框3可视 ＝ 真

框4可视 ＝ 假

框5可视 ＝ 假

框6可视 ＝ 假

框1左边 ＝ 0

框2左边 ＝ 325

框3左边 ＝ 651

子程序 _四个人_被选择

初始化 ()

n ＝ 0

按钮1禁止 ＝ 假

按钮1获取焦点 ()

框1可视 ＝ 真

框2可视 ＝ 真

框3可视 ＝ 真

框4可视 ＝ 真

框5可视 ＝ 假

框6可视 ＝ 假

框1左边 ＝ 0

框2左边 ＝ 325

框3左边 ＝ 651

子程序 _五个人_被选择

初始化 ()

n ＝ 0

按钮1禁止 ＝ 假

按钮1获取焦点 ()

框1可视 ＝ 真

框2可视 ＝ 真

框3可视 ＝ 真

框4可视 ＝ 真

框5可视 ＝ 真

框6可视 ＝ 假

框1左边 ＝ 0

框2左边 ＝ 325

框3左边 ＝ 651

子程序 _六个人_被选择

初始化 ()

n ＝ 0

按钮1禁止 ＝ 假

按钮1获取焦点 ()

框1可视 ＝ 真

框2可视 ＝ 真

框3可视 ＝ 真

框4可视 ＝ 真

框5可视 ＝ 真

框6可视 ＝ 真

框1左边 ＝ 0

框2左边 ＝ 325

框3左边 ＝ 651

子程序 初始化

局部变量 k, 整数型

选择夹现行子夹 ＝ 1

选择夹现行子夹 ＝ 0

时钟1时钟周期 ＝ 0

时钟2时钟周期 ＝ 0

时钟3时钟周期 ＝ 0

时钟4时钟周期 ＝ 0

时钟5时钟周期 ＝ 0

时钟6时钟周期 ＝ 0

_启动窗口背景音乐 ＝ 到字节集 (0)

计次循环首 (6, k)

框 ＝ 取标记组件 (k)

框 ＝ #

计次循环尾 ()

子程序 _标题_被选择

局部变量 wb, 文本型

初始化 ()

输入框 (“请输入标题内容”, , , wb, )

透明标签1标题 ＝ wb

写配置项 (取运行目录 () ＋ “\configini”, “标题”, “标题1”, wb)

子程序 _设定转奖声音_被选择

初始化 ()

通用对话框1过滤器 ＝ “WAV文件|wav”

通用对话框1打开 ()

开始音乐 ＝ 读入文件 (通用对话框1文件名)

写配置项 (取运行目录 () ＋ “\configini”, “声音”, “转奖声音”, 通用对话框1文件名)

子程序 _设定中奖声音_被选择

初始化 ()

通用对话框1过滤器 ＝ “WAV文件|wav”

通用对话框1打开 ()

结束音乐 ＝ 读入文件 (通用对话框1文件名)

写配置项 (取运行目录 () ＋ “\configini”, “声音”, “中奖声音”, 通用对话框1文件名)

子程序 _关闭音乐_被选择

初始化 ()

_启动窗口背景音乐 ＝ 到字节集 (0)

子程序 初始化

局部变量 d, 整数型

_启动窗口底图 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\configini”, “”, “背景”, 取运行目录 () ＋ “\Wallpaper\1024jpg”))

开始音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\configini”, “声音”, “转奖声音”, 取运行目录 () ＋ “\sound\musiwav”))

结束音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\configini”, “声音”, “中奖声音”, 取运行目录 () ＋ “\sound\finishwav”))

透明标签1标题 ＝ 读配置项 (取运行目录 () ＋ “\configini”, “标题”, “标题1”, “XX公司幸运抽奖”)

计次循环首 (6, d)

框 ＝ 取标记组件 (d)

框 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\configini”, “”, “抽奖”, 取运行目录 () ＋ “\Wallpaper\cjjpg”))

计次循环尾 ()

查找文件 (文件数组, 取运行目录 () ＋ “\Photos\”, “jpg”, )

查找文件 (文件数组, 取运行目录 () ＋ “\Photos\”, “bmp”, )

如果真 (取数组成员数 (文件数组) ＜ 6)

信息框 (“请把文件放到[Photots]文件夹下后重启软件！” ＋ #换行符 ＋ “文件格式支持[jpg bmp]”, 64, “提示：”)

结束 ()

如果真结束

子程序 _抽奖_被选择

局部变量 a, 整数型

初始化 ()

通用对话框1过滤器 ＝ “文件|jpg;bmp”

通用对话框1打开 ()

计次循环首 (6, a)

框 ＝ 取标记组件 (a)

框 ＝ 读入文件 (通用对话框1文件名)

计次循环尾 ()

写配置项 (取运行目录 () ＋ “\configini”, “”, “抽奖”, 通用对话框1文件名)

子程序 _时钟2_周期事件

置随机数种子 ()

框2 ＝ 读入文件 (文件数组 [取随机数 (1, 人数)])

子程序 _时钟3_周期事件

置随机数种子 ()

框3 ＝ 读入文件 (文件数组 [取随机数 (1, 人数)])

子程序 _时钟4_周期事件

置随机数种子 ()

框4 ＝ 读入文件 (文件数组 [取随机数 (1, 人数)])

子程序 _时钟5_周期事件

置随机数种子 ()

框5 ＝ 读入文件 (文件数组 [取随机数 (1, 人数)])

子程序 _时钟6_周期事件

置随机数种子 ()

框6 ＝ 读入文件 (文件数组 [取随机数 (1, 人数)])

子程序 _退出_被选择

结束 ()

子程序 _时钟7_周期事件

' 如果 (取鼠标垂直位置 () ＜ 10)

系统设定可视 ＝ 真

设定抽奖人数可视 ＝ 真

' 系统设定可视 ＝ 假

' 设定抽奖人数可视 ＝ 假

子程序 _按钮1_被单击, 逻辑型

如果真 (选择夹现行子夹 ＝ 1)

选择夹现行子夹 ＝ 0

如果真结束

_启动窗口背景音乐 ＝ 开始音乐

_启动窗口播放次数 ＝ 0

时钟1时钟周期 ＝ 100

时钟2时钟周期 ＝ 100

时钟3时钟周期 ＝ 100

时钟4时钟周期 ＝ 100

时钟5时钟周期 ＝ 100

时钟6时钟周期 ＝ 100

按钮2禁止 ＝ 假

按钮1禁止 ＝ 真

按钮2获取焦点 ()

返回 (真)

子程序 _按钮2_被单击

抽奖停 ()

_启动窗口背景音乐 ＝ 结束音乐

_启动窗口播放次数 ＝ 1

时钟1时钟周期 ＝ 0

时钟2时钟周期 ＝ 0

时钟3时钟周期 ＝ 0

时钟4时钟周期 ＝ 0

时钟5时钟周期 ＝ 0

时钟6时钟周期 ＝ 0

按钮2禁止 ＝ 真

按钮1禁止 ＝ 假

按钮1获取焦点 ()

源码：

窗口的布局按照你说的做。。然后还要在底下加个标签3显示状态用。

版本

2

支持库

internet

支持库

spec

程序集

窗口程序集1

子程序

__启动窗口_创建完毕

编辑框1内容

＝

取用户帐号

(取拨号连接数

()

－

1)

编辑框1起始选择位置

＝

-1

编辑框1被选择字符数

＝

-1

编辑框1获取焦点

()

子程序

_按钮1_被单击

局部变量

i,

整数型

局部变量

k,

文本型

k

＝

取拨号连接名称

(1,

)

挂断拨号

(i,

k)

子程序

_按钮2_被单击

调试输出

(拨号

(“@0”,

编辑框1内容,

编辑框2内容,

,

标签3))

子程序

挂断拨号,

逻辑型,

公开,

挂断当前拨号网络连接

参数

连接句柄,

整数型,

,

由开始拨号返回的连接句柄

参数

连接名称,

文本型

如果

(API_RasHangUp

(连接句柄)

＝

0)

返回

(真)

否则

返回

(运行

(“rasphone

-h

”

＋

连接名称,

假,

#隐藏窗口))

如果结束

子程序

取拨号连接名称,

文本型,

公开,

取出系统中拨号连接名称

参数

拨号连接索引,

整数型,

,

值只能在1至10

参数

取所有名称,

文本型,

参考

可空

数组

局部变量

EntryName,

RASENTRYNAME,

,

"10",

假设最多10个连接

局部变量

lpcb,

整数型,

,

,

电话本名称,0

局部变量

连接数,

整数型

局部变量

i,

整数型

如果真

(拨号连接索引

＞

10

或

拨号连接索引

＜

1)

返回

(“”)

如果真结束

EntryName

[1]dwSize

＝

API_GlobalSize

(EntryName

[1])

lpcb

＝

EntryName

[1]dwSize

×

256

API_RasEnumEntries

(0,

0,

EntryName,

lpcb,

连接数)

如果真

(是否为空

(取所有名称))

返回

(到文本

(EntryName

[拨号连接索引]szEntryName))

如果真结束

计次循环首

(连接数,

i)

加入成员

(取所有名称,

到文本

(EntryName

[i]szEntryName))

计次循环尾

()

返回

(到文本

(连接数))

DLL定义

版本

2

DLL命令

API_RasHangUp,

整数型,

"RasApi32DLL",

"RasHangUpA",

,

挂断当前拔号连接

参数

hRasConn,

整数型,

,

连接句柄

DLL命令

API_GlobalSize,

整数型,

"kernel32dll",

"GlobalSize",

,

取结构尺寸

参数

结构,

RASENTRYNAME,

传址

DLL命令

API_RasEnumEntries,

整数型,

"rasapi32dll",

"RasEnumEntriesA",

,

取连接信息结构,连接名称,数量等等

参数

lpStrNull,

整数型,

,

保留字段,必须为NIL

参数

lpszphonebook,

整数型,

,

电话本名称,在Win9X下无作用

参数

lprasetryname,

RASENTRYNAME,

传址

数组,

RASENTRYNAME类型数组的指针

参数

lpcb,

整数型,

传址,

接收拨号连接名称的缓冲区的大小

参数

lpcentries,

整数型,

传址,

实际获得的拨号连接名称的数目

自定义数据类型

版本

2

数据类型

RASENTRYNAME,

,

取连接信息用结构

成员

dwSize,

整数型,

,

,

该结构占内存大小

成员

szEntryName,

字节型,

,

"255",

拨号连接名称

成员

lpcb,

字节型,

,

,

缓冲区的大小

成员

lpcEntries,

文本型,

,

,

实际的连接的个数

效果:

以上就是关于易语言 编辑框获取焦点失去焦点 问题全部的内容，包括:易语言 编辑框获取焦点失去焦点 问题、求一款易语言抽奖源码，最好是图片抽奖，或者自行放入对方提供的头像。、关于易语言制作一个程序的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！