本数据为2023-2001天津统计年鉴面板数据,即为2022年-2000年天津市及各个区县统计数据,具有496个指标,这些指标统计了天津政治、经济、文化、卫生、社会服务等各个方面,时间跨度为23年,在市面上属于是最新最全的版本了(2023年年鉴为最新),数据为excel格式(也叫电子表格格式),stata、R语言等所有软件都可以直接导入。为了更直观的展现数据,我们放入样本数据,大家可以免费下载进行查看!
VB6常用控件详解2024-04-16 14:35:36
Text控件也就是文本框控件,是非常重要的,常常用来接收数据。比如输入姓名,电话,地址等就会用到这个控件。常用属性:Alignment 属性:文本框里文字的对齐方式,效果图:一般都是用左对齐或者居中。Enabled 属性:文本框是否可用还有一些美化功能,比如文本框是3D样式还是扁平样式,有边框还是没有边框,文本框背景色,里面的的文字颜色字体等:常用事件:Text_Change:当文本框里面的内容发生改变时候触发的事件:Private Sub Text1_Change() Form1.Caption = Text1.TextEnd Sub这句代码的意思是当Text1发生改变的时候,Form1的标题也跟着改变,运行效果:Text_LostFocus 事件:这个事件也常用,发生在焦点离开文本框的时候,比如你的Text1用于接收手机号码,一般为11位,所以,当输入完成,焦点离开Text1的时候可以用来检测输入的号码是否满足这个条件,代码:Private Sub Text1_LostFocus() If Len(Text1.Text) <> 11 Then MsgBox "你输入的手机号不是11位!" End IfEnd Sub运行效果:KeyDown,KeyPress,KeyUp 事件:这三个都是按键触发的事件,当Text获得焦点,你输入内容的时候,按下某一个键,首先触发KeyDown,然后是KeyPress,最后按键弹起触发KeyUp,至于KeyDown和KeyPress的区别,以后再谈。实际应用,还拿上个例子,Text1存放手机号码,除了检测是否是11位,还要检测是否是数字,输入完成后代码可以这样写:Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox "手机号只能是数字!" End IfEnd Sub运行效果:有了KeyPress事件,事情就简单多了,直接在输入阶段就限制非数字的输入,只要检测按键不是数字的话,禁止文本框接收字符,代码如下:这样只要你按的键不是0~9,按其他键文本框都没有反应,但是也带来了一个问题,如果你输入错误想删除,删除键也没有反应,不符合使用需求,所以把退格键的KeyAscii码也添加进去,代码改为:这样,文本框除了0~9和退格键,无法输入其他内容,就保证了手机号数据的正确性。文本框还有其他的事件和属性,但是常用的大概就这几种。
然而,对于一些普通用户来讲,执行执行具体的转换操作之前,想要先找一些免费的方法来试试看,但是找了半天时间浪费了却没有找到。那么,PDF转成Excel可以免费完成吗?答案是可以的!下面就来介绍几个操作比较简单的,可以一起来了解下吧。