博文
关于CommonDialog的几个属性(2006-05-06 10:13:00)
摘要：
CommonDialog错误常数
常数
值
描述
cdlAlloc
&H&H7FF0 &
不能对 FileName 或Filter 属性分配内存
cdlCancel
&H&H7FF3 &
选择了取消
cdlDialogFailure
&H&H8000 &
函数不能加载对话框
cdlFindResFailure
&H&H7FF9 &
函数不能加载指定资源
cdlHelp
&H&H7FEF &
不能调用 Windows 帮助
cdlInitialization
&H&H7FFD &
在初始化期间函数失败
cdlLoadResFailure
&H&H7FF8 &
函数不能加载指定的字符串
cdlLockResFailure
&H&H7FF7 &
函数不能锁定指定的资源
cdlMemAllocFailure
&H&H7FF6 &
函数不能对内部数据结构分配内存
cdlMemLockFailure
&H&H7FF5 &
函数不能锁定与句柄相关联的内存
cdlNoFonts
&H&H5FFE &
不存在字体
cdlBufferTooSmall
&H&H4FFC &
缓冲区，在其内，成员 lpstrFile 点太小
cdlInvalidFileName
&H4&H4FFD &
文件名称无效
cdlSubclassFailure
&H&H4FFE &
不能将列表框分出子类，因为内存不够
cdlCreateICFailure
&H&H6FF5 &
当 PrintDlg 函数要创建信息上下文时，该函数失败
cdlDndmMismatch
&H&H6FF6 &
DevMode 与 DevNames 数据结构中的数据描述两种不同的打印......
ASCII字符集(2006-05-06 09:56:00)
摘要：
0
?/FONT>
32
[space]
64
@
96
`
1
·
33
!
65
A
97
a
2
·
34
"
66
B
98
b
3
·
35
#
67
C
99
c
4
·
36
$
68
D
100
d
5
·
37
%
69
E
101
e
6
·
38
&
70
F
102
f
7
·
39
'
71
G
103
g
8
* *
40
(
72
H
104
h
9
* *
41
)
73
I
105
i
10
* *
42
*
74
J
106
j
11
·
43
+
75
K
107
k
12
·
44
,
76
L
108
l
13
* *
45
-
77
M
109
m
14
·
46
.
78
N
110
n
15
·
47
/
79
O
111
o
16
·
48
0
80
P
112
p
17
·
49
1
81
Q
113
q
18
·
50
2
82
R
114
r
19
·
51
3
83
S
115
s
20
·
52
4
84
T
116
t
21
·
53
5
85
U
117
u
22
·
54
6
86
V
118
v
23
·
55
7
87
W
119
w
24
·
56
8
88
X
120
x
25
·
57
9
89
Y
121
y
26
·
58
:
90
Z
122
z
27
·
59
;
91
[
123
{
28
·
60
<
92
\
124
|
29
·
61
=
93
]
125
}
30
·
62
>
94
^
126
~
31
·
63
?
......
一个简单的MP3播放器(2006-05-05 23:11:00)
摘要：
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站
利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图
按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。
下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long) As longDim mfn As String
下面就是各个对象的代码了：Private Sub Form_load()mfn=""play.Enabled=Falsepause.Enabled=FalseStopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseTimer1.Enabled=FalseTimer1.Interval=500End Sub
Private Sub open_Click()On Error Goto errWith CommonDialog1.CancelError=True.Filter="音乐文件|*.mp3;*.wav;*.mid".Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist.Action=1stopplay_Click '停止按钮同......
小叮当也战江湖—VB实例七日谈(二)(2006-05-05 21:56:00)
摘要：第二天、自制媒体播放器 小蘑菇：姐姐来看我刚刚下载的《黑衣人2》，可好玩了。 小叮当：用MediaPlayer看的？不如这样吧，今天我教你怎样制作一个媒体播放器，你看如何？ 小蘑菇：自己做的媒体播放器也可以看《黑衣人2》吗？ 小叮当：那是当然的，不然我岂不是变成了大骗子？ 小蘑菇：呵呵，那感情好呀，这样我可以拿到班上给同学炫耀一下喽。 小叮当：我们这个媒体播放器的目的是可以播放VCD、WAV、MP3等媒体文件，而且全部的功能基本上和Windows附带的媒体播放器差不多。其实要制作这样一个播放器并不困难，因为在VB中提供了一个MediaPlayer控件，它帮我们解决了很多实际问题，只要按照下面的步骤就可以了。 1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。 2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。 3、将Form1的Caption属性更改为“小叮当的媒体播放器”。 4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。 5、选中CommonDialog控件之后，在右边属性的“Filter”对话框中输入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的文件过滤选项，这样就可以支持各种常见的媒体影像文件了。 小蘑菇：看起来和真正的MediaPlayer差不多呀，还蛮有专业水准的呢。 小叮当：是呀，这全要归功于MediaPlayer控件，下面就是代码编写部分内容了： 1、首先要双击Form1窗口，并选择“通用”对象，输入下面的通用代码： Option Explicit Dim playfilename As String /定义播放文件的名称 Dim playposition As Double /定义当前播放的位置 ......
windowsmediaplay控件解释(2006-05-05 21:41:00)
摘要：VB中如何控制WinMedia Player控件,一些常用的属性和方法我能掌握.但如果要控制它的播放,声音大小,播放进度应该用什么属性或者方法呢?
RobinSen
2005-12-28 07:34
如果你说的控件是mplayer class6.4,那么试试这样:player1.filename="c:\1.mpg"player1.play这样是播放player1.stop这样是停止player1.pause这样是暂停你可以自己添加几个button加入这些控制代码player1.currentposition="33"这样可以快速跳到指定的位置,单位是秒
fdfsd
2005-12-30 07:32
我要的是WindowsMedia Player 控件的.谁能告诉我在哪里能查到资料,我在微软的网站找了半天都没找到
fdfsd
2005-12-31 12:14
唉,这里发言怎么不热烈.我找到一篇文章,对新手有帮助.URL:string 可以指定媒体位置enableContextMenu:Boolean 显示/不显示播放位置的右键菜单fullScreen:boolean 全屏显示stretchToFit:boolean 非全屏状态时是否伸展到最佳大小uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条playState:integer 当前控件状态，下面是三种基本状态：3：正在播放2：暂停1：已停止状态变化时会触发OnStatusChange事件[controls]可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：controls.play; 播放controls.stop; 停止controls.pause; 暂停controls.currentPosition：Double 当前播放进度controls.currentPositionString：string 时间格式的字符串 "0:32"[currentMedia]可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息currentMedia.duration Double 总长度currentMedia.durationString 时......
用VB制作一个简单的MP3播放器(2006-05-05 18:35:00)
摘要：利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举 启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器。
按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。
下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long) As long
Dim mfn As String
下面就是各个对象的代码了：
Private Sub Form_load()mfn=""play.Enabled=Falsepause.Enabled=FalseStopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseTimer1.Enabled=FalseTimer1.Interval=500End Sub
Private Sub open_Click()On Error Goto errWith CommonDialog1.CancelError=True.Filter="音乐文件|*.mp3;*.wav;*.mid".Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist.Action=1stopplay_Click '停止按钮同时可以设备初始化mfn=.FileName......
Windows API函数大全(2006-05-04 11:01:00)
摘要：1. API之网络函数
WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接
WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接
WNetEnumResource 枚举网络资源
WNetGetConnection 获取本地或已连接的一个资源的网络名称
WNetGetLastError 获取网络错误的扩展错误信息
WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC（统一命名规范）名称
WNetGetUser 获取一个网络资源用以连接的名字
WNetOpenEnum 启动对网络资源进行枚举的过程
2. API之消息函数
BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口
GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置
GetMessageTime 取得消息队列中上一条消息处理完毕时的时间
PostMessage 将一条消息投递到指定窗口的消息队列
PostThreadMessage 将一条消息投递给应用程序
RegisterWindowMessage 获取分配给一个字串标识符的消息编号
ReplyMessage 答复一个消息
SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口
SendMessageCallback 将一条消息发给窗口
SendMessageTimeout 向窗口发送一条消息
SendNotifyMessage 向窗口发送一条消息
3. API之文件处理函数
CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等
CompareFileTime 对比两......
VB6中如何调用API函数,比如调用WinExec函数(2006-05-04 09:52:00)
摘要：1、启动VB62、进入菜单：外接程序--外接程序管理器 单击VB6 API Viewer 勾选“在启动中加载”和“加载/卸载” 按“确定”3、进入菜单：外接程序--API 浏览器 进入API浏览器的菜单：文件--加载文本文件 选择：WIN32API.TXT 进入API浏览器的菜单：文件--转换文本为数据库 保存数据库名为WIN32API.MDB 进入API浏览器的菜单：文件--加载数据库文件 选择：WIN32API.MDB 勾选API浏览器的菜单：视图--加载最后文件 在API类型为“声明”的情况下，“键入你要查找的内容的开头几个字母”下面输入：“winexec“,下面就出现了WinExec这个函数 选择“声明范围”为“私有” 双击“可用项”中出现的WinExec函数 “选定项”中就出现了下面的代码： Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long 按“插入”就将这个API函数声明入到了你当前的窗体的“通用”模块中。 4、接下来......
函数大全(2006-05-02 21:30:00)
摘要：ASP函数大全 ASP的函数详解Array() FUNCTION: 返回一个数组 SYNTAX: Array(list) ARGUMENTS: 字符，数字均可 EXAMPLE: <% Dim myArray() For i = 1 to 7 Redim Preserve myArray(i) myArray(i) = WeekdayName(i) Next %[/IMG] RESULT: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday")CInt() FUNCTION: 将一个表达式转化为数字类型 SYNTAX: CInt(expression) ARGUMENTS: 任何有效的字符均可 EXAMPLE: <% f = "234" response.write cINT(f) + 2 %[/IMG] RESULT: 236 转化字符"234"为数字"234"，如果字符串为空，则返回0值CreateObject() FUNCTION: 建立和返回一个已注册的ACTIVEX组件的实例。 SYNTAX: CreateObject(objName) ARGUMENTS: objName 是任何一个有效、已注册的ACTIVEX组件的名字. EXAMPLE: <% Set con = Server.CreateObject("ADODB.Connection") %[/IMG] RESULT:CStr() FUNCTION: 转化一个表达式为字符串. SYNTAX: CStr(expression) ARGUMENTS: expression 是任何有效的表达式。 EXAMPLE: <% s = 3 + 2 response.write "The result is: " & cStr(s) %[/IMG] RESULT: 转化数字“5”为字符“5”。Date() FUNCTION: 返回当前系统日期. SYNTAX: Date() ARGUMENTS: None. EXAMPLE: <%=Date%[/IMG] RESULT: 8/4/99DateAdd() FUNCTI......
基础(2006-05-02 21:27:00)
摘要：
一.常用术语:工程（Project）： 是指用于创建一个应用程序的文件的集合。对象（Object）： 可控制的某个东西，VB中主要有两类对象：窗体和控件。窗体（Form）： 应用程序的用户界面，即windows。 控件（Control）： 指的是各种按钮、标签、文本框等。属性（Property）：是指对象的特征，如大小、标题或颜色。事件（Event）:对象被激活时所发生的动作,如控件被点击,窗体被加载.卸载等事件的调用形式:Private Sub对象名_事件名方法 (Method):控制对象动作行为的方式,如加载窗体后显示,卸载后从内存中清除方法的调用形式:对象名．方法名代码 '工程窗体中的数据,如窗体中被激活的控件对象所运行的数据过程 '指数据运行的步骤和经过变量 '过程中的未知数的代号常量 '过程中已知数的实际值声明 '指定参与运算的数据的形式形参：声明Sub 和Function过程参数表中变量的类型和形态以及在过程中的角色实参：调用Sub 和Function过程时，传送给相应过程的变量名、数组名、常数或表达式,形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来形参与实参的关系：形参如同公式中的符号，实参就是符号具体的值二.VB程序的设计步骤:====================================1、新建工程，出现默认窗口；2、添加窗体和控件；3、分别设置窗体和控件的属性；4、为对象编写事件过程；5、保存工作(可随时)；6、运行和调试工程(多次、反复)；7、编译工程，生成可执行文件。
三.常用语句:---------------------------------------------1、简单分支-------------------------------------------- A) if 条件表达式 then 单语句 '如果条件成立就执行单语句 If 条件表达式 then '如果条件不成立就跳到END结束IF语句语句块 '条件成立时执行语句块End if '闪人882、选择分支 ---------A) 简单的选择分支语句： If 条件表达式 then '条件成立执行语句1后跳到END IF结束语句块1 else '条件不成立执行语句2跳到END IF结束语句块2 End if 多重选择分支语句： If 条件1 ......