开发平台,最新开发的消费平台开发过程 持续更新(一)

时间总是过得飞快!
永远感觉时间不够用,持续的研发投入,终于有点欣慰了。
框架完成终于基本完成了。
公司文化:

快乐工作,快乐生活

先上图:大家多拍砖。
最新开发的消费平台开发过程 持续更新(一)开发平台
用户 Windows 平台 采用 VB开发。应用嵌入式,用户无需使用 浏览器
下图为 vb 框架代码
最新开发的消费平台开发过程 持续更新(一)开发平台
VB代码
Option Explicit '定义web的 XP样式 Private m_hMod As Long Private m_hMod2 As Long Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean Private Type tagInitCommonControlsEx lngSize As Long lngICC As Long End Type Private Const ICC_USEREX_CLASSES = &H200 Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long '结束定义web的 XP样式
Private WithEvents wb As InternetExplorer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate() 'WebBrowser1.Width = Me.Width - 180 WebBrowser1.Height = Me.Height End Sub
Private Sub Form_Initialize() '定义web的 XP样式 Dim iccex As tagInitCommonControlsEx iccex.lngSize = LenB(iccex) iccex.lngICC = ICC_USEREX_CLASSES InitCommonControlsEx iccex m_hMod = LoadLibrary("shell32.dll") m_hMod2 = LoadLibrary("explorer.exe") End Sub
Tags: 

延伸阅读

最新评论

发表评论