用资源文件做捆绑工具(控件加入资源文件)
2009-11-16 21:09
281 查看
-------------------------------------------------- 在窗体中---------------------------------------------------------------------
'*************************************************************************
'**模 块 名:显示农历 - Form1
'**说 明:魔灵圣域 2008 - 2009(C) by 郭卫(icecept)
'**创 建 人:郭卫(icecept)
'**日 期:2008-12-31 12:12:14
'**修 改 人:郭卫
'**日 期:2008-12-31 12:12:14
'**描 述: http://hi.baidu.com/icecept http://hi.csdn.net/icecet
'**版 本:V1.0.12 QQ:543375508
'*************************************************************************
Option Explicit
Private Sub CnCalendar1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
MsgBox "mouseup"
End If
End Sub
Private Sub Command1_Click()
MsgBox ("选定日期属相: " + CnCalendar1.GetChineseAnimal(CnCalendar1.Value))
End Sub
Private Sub Command2_Click()
MsgBox ("选定日期农历年: " + CnCalendar1.GetChineseYear(CnCalendar1.Value))
End Sub
Private Sub Command3_Click()
MsgBox ("选定日期农历月: " + CnCalendar1.GetChineseMonth(CnCalendar1.Value))
End Sub
Private Sub Command4_Click()
MsgBox ("选定日期农历日: " + CnCalendar1.GetChineseDay(CnCalendar1.Value))
End Sub
Private Sub Command5_Click()
MsgBox ("选定日期农历日期: " + CnCalendar1.GetChineseDate(CnCalendar1.Value))
End Sub
Private Sub Command6_Click()
MsgBox ("选定日期: " + CStr(CnCalendar1.Value))
End Sub
Private Sub Command7_Click()
MsgBox CnCalendar1.GetConstellation(CnCalendar1.Value)
End Sub
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "该程序已经运行!"
End
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
End Sub
Private Sub mnuabout_Click()
Dim about As String
about = "作者:郭卫,昵称:魔灵。喜欢用Visual Basic编程序的平面设计师,从中学时代就酷爱编程,"
about = about & "从Gwbasic到Visual Basic,创作了不少的作品。并且我还特别喜"
about = about & "欢平面设计,熟练使用photoshop和coreldraw,并创作了不少的作品."
about = about & "作品有记事薄(类似于写字板)、华容道(20局的游戏)、企业商品"
about = about & "管理、程序自动保存、整点报时等一批软件,"
about = about & "如果大家对我的程序感兴趣,请与我联系." & vbCrLf & "QQ:543375508"
about = about & vbCrLf & "E-mail:icecept@163.com"
about = about & vbCrLf & "魔灵圣域之情感世界 http://icecept.blog.sohu.com"
MsgBox about, vbOKOnly Or vbInformation, "作者信息"
End Sub
Private Sub yongfa_Click()
Form2.Show vbModal
End Sub
-------------------------------------------------- 在模块中---------------------------------------------------------------------
Option Explicit
'延时
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
If Dir(CheckFilePath(App.Path) & "CnCalendar.ocx") = vbNullString Then
Call ResShiFang(CheckFilePath(App.Path) & "CnCalendar.ocx")
Sleep 1000
Shell "regsvr32 " & CheckFilePath(App.Path) & "CnCalendar.ocx /s", vbNormalFocus '注册控件,无弹出对话框
End If
Form1.Show
End Sub
Private Sub ResShiFang(vDataFileName As String)
Dim DataFile() As Byte
DataFile = LoadResData(101, "CUSTOM") '从资源文件读入文件内容
Open vDataFileName For Binary As #1 '建立数据文件,以二进制方式打开
Put #1, , DataFile
Close #1 '写完后关闭文件
End Sub
Function CheckFilePath(Path As String) As String
'检查档位文件是否在根目录下
If Right(Path, 1) <> "/" Then
CheckFilePath = Path & "/"
Else
CheckFilePath = Path
End If
End Function
附件: 控件加入资源文件.rar
永远的魔灵<icecept> by 郭卫
http://icecept.jimdo.com
相关文章推荐
- 用资源文件做捆绑工具,(exe加入资源文件)
- 资源文件里加入dialogbox的控件收不到wm_create消息
- 控件注册 - 利用资源文件将dll、ocx打包进exe文件(C#版)
- windows资源文件(.rc)是如何变成窗口控件的
- 程序数据资料资源加密保护工具控件XBundler® Win32/.NET
- 给树控件加入工具提示
- 将二进制文件加入VC资源后释放执行
- SVG-Android开源库——SVG生成Vector资源文件的编辑预览工具
- 利用WebResource属性实现资源文件自包含于控件
- 在字符串资源文件里加入HTML元素,直接使用字符串资源,HTML元素没起作用的解决的方法
- Asp.Net 控件开发之资源文件处理
- 第一步 使用sencha touch cmd 4.0 创建项目、打包(加入全局变量、公用类、自定义扩展、资源文件)
- 可视化反编译APK工具,查看部分JAVA代码与全部资源文件。
- androidstudio3.0资源文件提示很慢,资源文件R文件不刷新,每次clean后才能显示控件id,findviewbyid没反应反映过慢
- 给HyperLink控件连接资源文件
- 如何给CListCTrl控件加入动态的工具提示
- 多语言资源文件制作工具
- 一共81个,开源大数据处理工具汇总:查询引擎、流式计算、迭代计算、离线计算、键值存储、表格存储、文件存储、资源管理、日志收集系统、消息系统、分布式服务、集群管理、基础设施、搜索引擎、数据挖掘=监控
- 如何查看迅雷等资源共享工具正在上传的文件
- 【为生活开发系列之三】Android屏幕适配资源文件批量分类工具