-
-
VisualFreeBasic控件_DateTimePicker 日期时间选择器 用来选择日期和时间用 运行后，可以点击下拉按钮，显示月历来选择日期 自定义日期格式 可以自己定义格式来设置，格式如：yyyy-mm-dd hh:mm:ss 此字符串，参考 Format 语句帮助里的日期时间格式 符号 描述 d, dd 以1位/ 2位数字显示日期（1-31 / 01-31） ddd 显示日期为缩写（Sun-Sat） dddd 以全名显示日期（星期日 - 星期六） ddddd 显示序列号作为完整日期（包括日，月，年） m,mm 以1位/ 2位数字显示月份（1-12 / 01-12）。如果在h或h之后立即显示分钟而不是月份 M, MM 显示月份为一位/两位数字（1-12 / 01-12），即使紧随h或hh mmm 显示月份为缩写（Jan-Dec） mmm 显示月份为全名（1月至12月） y,yy 将年份显示为两位数字（00-99） yyyy 显示年份为四位数字（1900-2040） h,hh 将小时显示为一位/两位数字（0-23 / 00-23） m,mm 将分钟显示为一位/两位数字（0-59 / 00-59）。如果不是紧随h或hh，则显示月份而不是分钟 n,nn 将分钟显示为一位/两位数字（0-59 / 00-59），即使不是在h或hh后立即 s,ss 显示第二个为一位/两位数字（0-59 / 00-59） ttttt 将时间序列号显示为一个完整的时间，包括小时，分钟和秒 常用事件 修改了时间或日期 Sub Form1_DateTimePicker1_DTN_DateTimeChange(hWndForm As hWnd, hWndControl As hWnd,pChange As NMDATETIMECHANGE) End Sub 常用属性 DateTimePicker1.DateTime 返回日期时间 DateTimePicker1.DateTimeStr 返回日期时间的字符串 -
-
-
VisualFreeBasic控件_UpDown 上下按钮 由2个按钮组成的 上下按钮，在属性里，也可以设置成左右按钮。 可以设置最大值和最小值，用来调节某数值。 常用事件 点击按钮 Function Form1_UpDown1_UDN_DeltaPos(hWndForm As hWnd, hWndControl As hWnd,pNMUD As NMUPDOWN) As LResult Function = False '允许更改位置值。返回 TRUE 将不允许修改位置值 End Function 常用属性 UpDown1.MaxValue 最大值 UpDown1.MinValue 最小值 UpDown1. Value 当前值 伙伴控件 可以 和 Text文本控件组合成一个新控件，在此属性中输入控件名称 运行软件后，本控件会跑到Text文本控件旁边，点击上下按钮，可以自动改变Text文本中数值 -
VisualFreeBasic控件_RichEdit 富文本 Text 控件对应的是系统中的“记事本”软件，而RichEdit对应的是系统中“写字板”软件，功能是相当强大。 大家可以看一下系统中的软件，它能做到的，基本上这个控件都能办到 不过，这个是标记文本，而这个标记需要专门的学习，这些需要去查看微软文档。 我们也可以在“写字板”软件编辑好后，保存文件，然后用文本打开，复制代码 常用事件 文本被修改 Sub Form1_RichEdit1_EN_Update(hWndForm As hWnd, hWndControl As hWnd) End Sub 常用属性 RichEdit1.Text = "普通文本" RichEdit1.TextRtf = "Rtf格式的标记文本" -
-
-
VisualFreeBasic控件_TreeView 目录树视图 树状结构显示数据 常用事件 点击列表 Function Form1_TreeView1_NM_CLICK(hWndForm As hWnd, hWndControl As hWnd) As LResult Function = False '返回 TRUE 非零以防止默认处理，返回 False 零以允许默认处理。 End Function 添加数据 TreeView1.AddItem(TVI_ROOT, "数据") TVI_ROOT 表示目录，这个是根目录，就是最初的目录 添加子数据，可以无限套娃，形成目录结构。 Dim aa As HTREEITEM = TreeView1.AddItem(TVI_ROOT, "数据") Dim bb As HTREEITEM = TreeView1.AddItem(aa, "子数据") Dim cc As HTREEITEM = TreeView1.AddItem(bb, "子子数据") 添加图标 每行数据，都可以设置一个图标。 先添加一个图像列表控件，此控件只装载图像，不显示任何内容。 给 ImageList1 控件添加图像 再把 TreeView1绑定这个控件 添加数据时，设置图像索引即可，索引就是 ImageList1 控件里的第几个图像 Dim aa As HTREEITEM = TreeView1.AddItem(TVI_ROOT, "数据",附加数据,图像索引,选择时图像索引,是否有子数据) 数据 就是显示的文字 附加数据 用户自定义数值 图像索引 ImageList1 控件的第几个图像，平常显示的图标 选择时图像索引 当选择时，显示的图标 是否有子数据 当有子数据时，左边会显示一个“+”号用于展开，有时候，这个没子数据，但确定是一个目录，那么这个设置为非0，就会显示一个“+”号。虽然没子数据，也要显示+号。 常用属性 TreeView1.AddItem 添加数据 TreeView1.DeleteAllItems 删除所有数据 TreeView1.DeleteItem 删除单个数据（若有子数据，所有的子都被删除） TreeView1.Expand 折叠或展开数据 TreeView1.GetCount 获取有多少数据 TreeView1.GetChild 获取第一个子数据 TreeView1.GetNextSiblin 下一个同级项目 -
VisualFreeBasic控件_ListView 列表视图 相信大家都用过WIN系统的“我的电脑/此电脑”里 文件管理器 ，那里的显示文件，就是用这个控件（当然从WIN8开始用增强版的，和这个控件有差异，但是大差不差） 这个控件有4种形态 大多我们是用来，显示列表，显示二维数组。 列表头设置 设计属性设置 写代码设置 ListView1.AddColumn("表头名",LVCFMT_CENTER ,宽度) 添加数据 添加一行数据的例题，只能一行一行，一列一列添加。 Dim 行 As Long = ListView1.AddItem("0数据") ListView1.SetItemText(行, 1, "1数据") ListView1.SetItemText(行, 2, "2数据") ListView1.SetItemText(行, 3, "3数据") 常用事件 点击项目 Sub Form1_ListView1_LVN_ItemChanged(hWndForm As hWnd, hWndControl As hWnd, pNMV As NM_LISTVIEW) If pNMV.uNewState <> 3 Then Return '非用户点击和去除一次点击多次事件，可根据实际情况相应修改。 End Sub 常用属性 ListView1.DeleteAllItems '删除全部数据 ListView1.DeleteItem '删除一行数据 ListView1.InsertItem '插入一行数据 添加图标 每行数据，都可以设置一个图标。 先添加一个图像列表控件，此控件只装载图像，不显示任何内容。 给 ImageList1 控件添加图像 再把 ListView1 绑定这个控件，如果显示的只是列表，就绑定小图标即可 添加数据时，设置图像索引即可，索引就是 ImageList1 控件里的第几个图像 Dim 行 As Long = ListView1.AddItem("0数据",0,图像控件的索引) ListView1.SetItemText(行, 1, "1数据") 列表自绘 本控件支持自绘，需要在设计属性里，打勾 代码绘画在事件里（注：每一行每一列都触发一次事件，比如：10行，4列，那么就要触发10*4=40次事件。） Function Form1_ListView1_OwnerDraw(hWndForm As hWnd, hWndControl As hWnd,lpdis As DRAWITEMSTRUCT) As LResult Function = FALSE ' 如果处理了此事件，则应返回 TRUE 。 End Function