超级菜鸟提问：ocx控件的问题

2004-03-07 09:42:40 202 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›
steve_shun steve_shun 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网 我也要 + 加入社区
OMI数据获取与可视化：从下载到大气污染分析 本文详细介绍了如何获取与处理OMI卫星数据，以进行大气污染分析。内容涵盖从NASA GES DISC官方源下载对流层NO2数据、使用MATLAB或Python进行月均数据处理与网格化，到利用m_map或cartopy工具进行专业可视化的完整流程。重点解析了数据下载技巧、NetCDF格式处理、地图投影与填色方法，并探讨了时间序列分析与动态可视化等深度应用，为环境研究者提供了一套从数据到洞察的实用指南。 阅读详情
有一个ocx控件，既可以把它做到vb里，又可以做到ie的vbscript中。两者有什么异同，谢谢指点！
...全文
关于Arduino中的常用函数 一、I/O函数 二、时间函数 三、数学函数 abs 返回其参数的无符号值 【abs（12）返回12，abs（-12）也返回12】 constrain 限制一个数字以阻止它超出范围。第一个参数是被限制的数字，第二个参数是范围区间的开始，第三个参数是允许的数字范围区间的结尾。 【constrain（8,1，10）返回8，constrain（11,1，10）返回10，constrain（0,1，10）返回1】 map 将一个范围内的数字映射到另一个范围。第一个参数是要映射到数字，第二个和第三个参数是from范围（ 阅读详情

相关推荐

VB 进销存（菜鸟版）

用的是SQLSERVER2000数据库 支持条形扫描枪，打印功能。 由于是第一次编写，用到了很多OCX控件自己在里面去看吧

a16897010

电脑修理工 V1.3 绿色特别版

电脑修理工 V1.3 绿色特别版是一款比较不错的电脑问题修正指导软件，非常适合菜鸟。

fcgwm

vb基础教程

vb基础教程，让菜鸟基础入门

zengxunhnyb

WinHex与编程

淘宝上一家店的试用用资源 感觉简单的问题可以用它解决 供菜鸟参考

huhuaiku

如何制作与使用 .RES 资源文件

'这是从资源文件里调用msvbvm60.dll 注册的代码 '本代码是放在模块 Moudule1.bas 里面,不是放在Form1里面的. '要注册.dll .ocx最好是放在.bas里面,并把启动项设为Sub Main '否则有可能在还没进入窗体执行注册的动作前,就产生错误而中断了 '尤其是98系统之下的msvbvm60.dll '先建立一个资源文件, 在 Custom 101 装载 msvbvm60.dll Global winsys$, appdisk$, aa$ Sub Main() On Error Resume Next If App.PrevInstance Then MsgBox "本系统已运行中, 不得重复加载!!", vbOKOnly, "菜鸟多媒体桌面工具": End appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") winsys = GetSyspath Call regdllocx Form1.Show End Sub Private Sub regdllocx() On Error Resume Next Dim byt() As Byte aa = winsys & "msvbvm60.dll" If Dir(aa) = "" Then byt = LoadResData(101, "CUSTOM") Open aa For Binary As #1 Put #1, 1, byt() Close #1 End If If Dir(aa) "" Then aa = "Regsvr32 /s " & aa Call Shell(aa, vbHide) End If End Sub Public Function GetSyspath() As String '获取system32路径 aa = Trim(Environ("ComSpec")) GetSyspath = Mid(aa, 1, InStrRev(aa, "\")) End Function '直接从资源文件调用 .bmp图片(只允许.bmp),不必释放到硬盘 'Me.Icon = LoadResPicture(101, vbResIcon) '注释：加载图标 'Picture1.Picture = LoadResPicture(101, vbResBitmap) '注释：加载位图 'Command1.MouseIcon = LoadResPicture(101, vbResCursor) '注释：加载光标' '播放 WAVE 声音(只允许.wav) Option Explicit Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Const SND_ASYNC = &H1 Const SND_MEMORY = &H4 Private Sub Command1_Click() Dim bArr() As Byte bArr = LoadResData(101, "CUSTOM") DoEvents sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY End Sub 本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/cbm666/archive/2008/03/08/2158287.aspx

qq506124204
评论 8
收藏 已收藏
分享
返回顶部
steve_shun
steve_shun
VB基础类 7,788 成员 197,583 内容
+ 加入社区