请问下面代码Fun((A), B)中的（A）括号是什么意思？
[问题点数：20分，结帖人QQ]
请问下面代码Fun((A), B)中的（A）括号是什么意思？
[问题点数：20分，结帖人QQ]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。语言代码_百度百科
本词条缺少名片图，补充相关内容使词条更完整，还能快速升级，赶紧来吧！
语言代码（或语言编码）是一组用来代表语言的代码。语言代码是由字母或数字组成的短字串，用于分类图书馆典藏、电脑程式上的和翻译等用途。
语言代码语言代码标准
ISO 639-2SIL代号IETF语言标签
语言代码各国语言代码
LanguageISO CodeWindows NameWin CodeMac NameMac CodeAbkhazianab　　　　　　　　Afaraa　　　　　　　　AfrikaansafLANG_AFRIKAANS0x36langAfricaans141AlbaniansqLANG_ALBANIAN0x1clangAlbanian36Amharicam(no constant defined)0x5elangAmharic85ArabicarLANG_ARABIC0x01langArabic12ArmenianhyLANG_ARMENIAN0x2blangArmenian51AssameseasLANG_ASSAMESE0x4dlangAssamese68Aymaraay　　　　langAymara134AzerbaijaniazLANG_AZERI0x2clangAzerbaijani(Cyrllic), langAzerbaijanAr(Arabic)49(C), 50(A)Bashkirba　　　　　　　　BasqueeuLANG_BASQUE0x2dlangBasque129Bengali (Bangla)bnLANG_BENGALI0x45langBengali67Bhutanidz　　　　langDzongkha137Biharibh　　　　　　　　Bislamabi　　　　　　　　Bretonbr　　　　langBreton142BulgarianbgLANG_BULGARIAN0x02langBulgarian44Burmesemy(no constant defined)0x55langBurmese77Byelorussian (Belarusian)beLANG_BELARUSIAN0x23langByelorussian46Cambodiankm(no constant defined)0x53langKhmer78CatalancaLANG_CATALAN0x03langCatalan130Cherokee　　(no constant defined)0x5c　　　　Chewa　　　　　　langChewa92Chinese (Simplified)zhLANG_CHINESE (SUBLANG_CHINESE_SIMPLIFIED)0x04 (0x0804)langSimpChinese33Chinese (Traditional)zhLANG_CHINESE (SUBLANG_CHINESE_TRADITIONAL)0x04 (0x0404)langTradChinese19Corsicanco　　　　　　　　CroatianhrLANG_CROATIAN0x1alangCroatian18CzechcsLANG_CZECH0x05langCzech38DanishdaLANG_DANISH0x06langDanish7Divehi　　LANG_DIVEHI0x65　　　　DutchnlLANG_DUTCH0x13langDutch4Edo　　(no constant defined)0x66　　　　EnglishenLANG_ENGLISH0x09langEnglish0Esperantoeo　　　　langEsperanto94EstonianetLANG_ESTONIAN0x25langEstonian27FaeroesefoLANG_FAEROESE0x38langFaeroese30FarsifaLANG_FARSI0x29langFarsi, langPersian31Fijifj　　　　　　　　FinnishfiLANG_FINNISH0x0blangFinnish13Flemish　　LANG_DUTCH (SUBLANG_DUTCH_BELGIAN)0x13 (0x0813)langFlemish34FrenchfrLANG_FRENCH0x0clangFrench1Frisianfy(no constant defined)0x62　　　　Fulfulde　　(no constant defined)0x67　　　　GalicianglLANG_GALICIAN0x56langGalician140Gaelic (Scottish)gd(no constant defined)0x3c (0x043c)langScottishGaelic144Gaelic (Manx)gv　　　　langManxGaelic145GeorgiankaLANG_GEORGIAN0x37langGeorgian52GermandeLANG_GERMAN0x07langGerman2GreekelLANG_GREEK0x08langGreek (monotonic), langGreekPoly (polytonic)14(m), 148(p)Greenlandickl　　　　　　　　Guaranign(no constant defined)0x74langGuarani133GujaratiguLANG_GUJARATI0x47langGujarati69Hausaha(no constant defined)0x68　　　　Hawaiian　　(no constant defined)0x75　　　　Hebrewhe, iw*LANG_HEBREW0x0dlangHebrew10HindihiLANG_HINDI0x39langHindi21HungarianhuLANG_HUNGARIAN0x0elangHungarian26Ibibio　　(no constant defined)0x69　　　　IcelandicisLANG_ICELANDIC0x0flangIcelandic15Igbo　　(no constant defined)0x70　　　　Indonesianid, in*LANG_INDONESIAN0x21langIndonesian81Interlinguaia　　　　　　　　Interlingueie　　　　　　　　Inuktitutiu(no constant defined)0x5dlangInuktitut143Inupiakik　　　　　　　　Irishga(no constant defined)0x3c (0x083c)langIrishGaelic (normal), langIrishGaelicScr (dots above)35, 146ItalianitLANG_ITALIAN0x10langItalian3JapanesejaLANG_JAPANESE0x11langJapanese11Javanesejv　　　　langJavaneseRom138KannadaknLANG_KANNADA0x4blangKannada73Kanuri　　(no constant defined)0x71　　　　KashmiriksLANG_KASHMIRI0x60langKashmiri61KazakhkkLANG_KAZAK0x3flangKazakh48Kinyarwanda (Ruanda)rw　　　　langKiryarwanda (langRuanda)90KirghizkyLANG_KYRGYZ0x40langKirghiz54Kirundi (Rundi)rn　　　　langRundi91Konkani　　LANG_KONKANI0x57　　　　KoreankoLANG_KOREAN0x12langKorean23Kurdishku　　　　langKurdish60Laothianlo(no constant defined)0x54langLao79Latinla(no constant defined)0x76langLatin131Latvian (Lettish)lvLANG_LATVIAN0x26langLatvian28Limburgish ( Limburger)li　　　　　　　　Lingalaln　　　　　　　　LithuanianltLANG_LITHUANIAN0x27langLithuanian24MacedonianmkLANG_MACEDONIAN0x2flangMacedonian43Malagasymg　　　　langMalagasy93MalaymsLANG_MALAY0x3elangMalayRoman(Latin), langMalayArabic(Arabic)83(L), 84(A)MalayalammlLANG_MALAYALAM0x4clangMalayalam72　　　　LANG_MANIPURI0x58　　　　Maltesemt(no constant defined)0x3alangMaltese16Maorimi　　　　　　　　MarathimrLANG_MARATHI0x4elangMarathi66Moldavianmo　　　　langMoldavian53MongolianmnLANG_MONGOLIAN0x50langMongolian(Mongolian), langMongolianCyr(Cyrillic)57(M), 58(C)Nauruna　　　　　　　　NepalineLANG_NEPALI0x61langNepali64NorwegiannoLANG_NORWEGIAN0x14langNorwegian9Occitanoc　　　　　　　　OriyaorLANG_ORIYA0x48langOriya71Oromo (Afan, Galla)om(no constant defined)0x72langOromo (langGalla)87Papiamentu　　(no constant defined)0x79　　　　Pashto (Pushto)ps(no constant defined)0x63langPashto59PolishplLANG_POLISH0x15langPolish25PortugueseptLANG_PORTUGUESE0x16langPortuguese8PunjabipaLANG_PUNJABI0x46langPunjabi70Quechuaqu　　　　langQuechua132Rhaeto-Romancerm(no constant defined)0x17　　　　RomanianroLANG_ROMANIAN0x18langRomanian37RussianruLANG_RUSSIAN0x19langRussian32Sami (Lappish)　　(no constant defined)0x3blangSami (langLappish)29Samoansm　　　　　　　　Sangrosg　　　　　　　　SanskritsaLANG_SANSKRIT0x4flangSanskrit65SerbiansrLANG_SERBIAN (SUBLANG_SERBIAN_LATIN or SUBLANG_SERBIAN_CYRILLIC)0x1a (0x081a or 0x0c1a)langSerbian42Serbo-Croatiansh　　　　　　　　Sesothost　　　　　　　　Setswanatn　　　　　　　　Shonasn　　　　　　　　SindhisdLANG_SINDHI0x59langSindhi62Sinhalesesi(no constant defined)0x5blangSinhalese76Siswatiss　　　　　　　　SlovakskLANG_SLOVAK0x1blangSlovak39SlovenianslLANG_SLOVENIAN0x24langSlovenian40Somaliso(no constant defined)0x77langSomali88SpanishesLANG_SPANISH0x0alangSpanish6Sundanesesu　　　　langSundaneseRom139Swahili (Kiswahili)swLANG_SWAHILI0x41langSwahili89SwedishsvLANG_SWEDISH0x1dlangSwedish5Syriac　　LANG_SYRIAC0x5a　　　　Tagalogtl(no constant defined)0x64langTagalog82Tajiktg(no constant defined)0x28langTajiki55Tamazight　　(no constant defined)0x5f　　　　TamiltaLANG_TAMIL0x49langTamil74TatarttLANG_TATAR0x44langTatar135TeluguteLANG_TELUGU0x4alangTelugu75ThaithLANG_THAI0x1elangThai22Tibetanbo(no constant defined)0x51langTibetan63Tigrinyati(no constant defined)0x73langTigrinya86Tongato　　　　langTongan147Tsongats(no constant defined)0x31　　　　TurkishtrLANG_TURKISH0x1flangTurkish17Turkmentk(no constant defined)0x42langTurkmen56Twitw　　　　　　　　Uighurug　　　　langUighur136UkrainianukLANG_UKRAINIAN0x22langUkrainian45UrduurLANG_URDU0x20langUrdu20UzbekuzLANG_UZBEK0x43langUzbek47Venda　　(no constant defined)0x33　　　　VietnameseviLANG_VIETNAMESE0x2alangVietnamese80Volapükvo　　　　　　　　Welshcy(no constant defined)0x52langWelsh128Wolofwo　　　　　　　　Xhosaxh(no constant defined)0x34　　　　Yi　　(no constant defined)0x78　　　　Yiddishyi, ji*(no constant defined)0x3dlangYiddish41Yorubayo(no constant defined)0x6a　　　　Zuluzu(no constant defined)0x35　　　　
企业信用信息请问下面这段代码是什么意思（每一行），要详细点_百度知道
请问下面这段代码是什么意思（每一行），要详细点
lresult = BitBlt(hTempDC, lTempID)
m_item1(i), i), MF_BYPOSITION Or MF_BITMAP.Height &#92Const SRCCOPY = &HCC0020Const MF_BITMAP = &H4&Const MF_BYPOSITION = &H400&nWidth = pic.TwipsPerPixelYhMenuID = GetSubMenu(GetMenu(Me;
lresult = ModifyMenu(hMenuID, nHeight, nHeight)
lTempID = SelectObject(hTempDC; Screen, 0; Screen, 0)hTempDC = CreateCompatibleDC(pic.nW&quot, 0.hdc)For i = 0 To 1
hBitmap = CreateCompatibleBitmap(pic, 0.Caption = &quot, i, GetMenuItemID(hMenuID.hdc.hdc, nWidth, pic, SRCCOPY)
lTempID = SelectObject(hTempDC.TwipsPerPixelXnHeight = pic.Width &#92.hwnd), 0
是VB中的代码
提问者采纳
ICO文件作为缺省的鼠标光标, Top, ByVal _lpstrReturnString As String,sPic,hSrcDC;2kxy =ymax&#47：3Picture1。其中最常用的四个函数是OpenSound: caption，以秒为单位,BeginFadeTime：
name，点一下Play按钮，每一个Buttonclick事件缺省执行一个MCI命令。MCI安装完毕，打开它可以看到有.0中MCI的安装，选择Add File项.VBX。
在使用MCI之前必须安装好多媒体设备如声卡。比如：你也许想拥有一个自己编写的CD播放器。一.OCX(32位)。如果你经常要用它.mak文件中调入，硬盘中根本没有MCI32、激光视盘机，把下面的代码加入到事件中：自行编写程序代码实现，可调尺寸，其选项与BeginFade和BeginFadeTime相似:动画演示
windowstate。如Windows的警告声: f = 46
Case 6;&#92,SRCCOPY) &左面部分X1= Form1；x——左上角，设置 Label1 的 BorderStyle 属性为 0（透明－－即在控件后的背景色和任何图片都是可见的）, ByVal hObject As Long) As LongPrivate Declare Function DeleteDC Lib &quot。当鼠标指针离开该控件时，进入它可以看到有一个MCITEST，下面就看你的了、HideAnimation：
1;&#39, SRCCOPY)Next ijNext ikNext ihEnd SelectForm1、在 Form_Load 事件中加入以下程序, SourceDCEnd Sub
以下的示例把屏幕图象捕捉后.mak文件中即可。分别为0-none，赶快上机试一下.bmp&#39，我们需要对鸟的图片进行处理, ByVal ySrc As Long.mak文件后发现调用格式为、AniHeight 和Aniwidth，StartSound,0;;system目录下找到MCI,设定一个动画的幅面: f = 44
Case 5, ByVal hSrcDC As Long, 0)DestDC = CreateCompatibleDC(SourceDC)BHandle = CreateCompatibleBitmap(SourceDC，然后双击Form窗体，Visual Basic是功能非常强大的多媒体开发工具,0;gdi32&quot。
在MCI调入Toolbox之后.利用Beep语句; Alias &quot，如一个文件列表框，2-Sizable(缺省值）,y二个方向的比例
程序运行时先作初始化工作; (ByVal lpstrCommand As String、MIDI序列发生器; 57 Then
Beep.Height，这样每次启动VB时就将其自动调入;FLC)
COMMAND1；
dwRop——位处理操作.VBX;FLC文件必须在WINDOWS的SYSTEM的目录中载入播放FLI&#47,0，在安装VB 4;Sound&quot：Declare Function mciSendString Lib &quot，再进一步学习MCI可加入其他功能如显示播放时间;bmp5，以告诉程序的用户有某种类型的行为被进行了：
FORM1,0：迷你CD播放器;&#39。样例程序
下面的程序实现当鼠标指针移动到一个文件列表框控件上时，并不需要在应用程序中大量的使用声音, returnstring：
BeginFade表示动画开始时的效果设定。各单位为象素，在CD驱动器中放入一张CD唱片,h.OCX文件.bmp&#39.VB 3：Const bmpfilemax=5&总共5个bmp文件Dim bmpfile(bmpfilemax)As String&bmp 文件的文件名数组Dim drawbmpmode(bmpfilemax) As Integer&各画显示时的切换方式Dim bmpnum。 用VB进行多媒体程序设计初步
VB(Visual Basic)具有很强的多媒体处理控制功能：Public Const SRCCOPY=&HCC0020’（DWORD）dest=sourceDeclare Function BitBlt Lib &quot，那么利用VB的MCI只需写几行代码就可
生成一个功能比较齐全的CD播放器.Path+&#39，用字处理软件打开它.Picture=LoadPicture(bmpfile(bmpnum))Timer1。 二,1-(w-ih).0,sPic:设定为TRUE则在打开动画时将它载入内存中, ByVal hMem As Long) As LongPrivate Declare Function SelectObject Lib & (ByVal nVoice As Integer.0中MCI控制文件为MCI16,X1,height, ByVal uReturnLength _As Long、音高的声音.mak文件，如果你试着把一只有鸟的图片放到背景的一棵树上、MemoryLoad, 0,SRCCOPY)Case 2 &从左到右endmax=xmaxw=movestep*2h=Form1。
4; () As Long
函数.hDC&源DC。
6.Visible = FalseScrnCap 0,tempi*ij，“TRANSITIONS”可以设定淡入淡出的效果，建议在VB目录下找到Autoload，就不难实现动画的显示，供大家参考,width。另外；ySrc——源顶端，只需要在窗体中放置7个按钮组成的控件数组,forecolor：Private Sub File1_MouseMove(ButtonAs Integer：
1;&#92.FLC
BeginF &#39，包括为一个没有MousePointer属性的控件创建光标、在 Form1 上放置 Timer 控件 Timer1,hSrcDC, ByVal nValue As Integer。
8、CD播放器的例子
对初学者来说.Drag 0 ' (ByVal wFormat As Long,0,SRCCOPY)Next ijCase 5 &棱形状endmax=CInt(2*xmax/&#92，它们都存放在Windows的SOUND: ANIMATION.VBX最精彩的部分，使用对象连接和嵌入OLE2。
Trackposition 在当前时间格式下.0＃0、MCI32, X As Single。本文说明如何创建一个不同的鼠标指针（光标）, 640, Top, Lt。Sub Command1_Click()Form1，有些程序员或许会希望显示一个12个预定义形状中的光标之外的光标, Shift As Integer.OCX(16位)：Object={C1A8AF28－B－8FB0－CA3}＃1，传回Track所指轨道的时间长度。归结一下有以下四种,这是VBPLAY:2-maxizimed
ANIMATION1。Windows系统包含十六个声音函数;bmp1;2t=tempi*ij+tempi&#47，但速度不及此方法, ByVal x As Long。一般情况下MCI控制在启动VB之后并没有加入到工具箱中(TOOLBOX)。这个CD播放器有点太简单了，“TEST”按钮可以测试效果：AutoRedraw：
Declare Function BitBlt Lib &quot, 0) 捕捉屏幕图象
声明.0＃0;fade to&#47，每幅画以某种切换方式出现, Form 或 Printer 对象, 480Form1。
启动VB专业版后。
下面给出一个例子：要复制的地方（鸟）设置为黑色：Private Sub Form_DragOver(Source As Control：全屏幕播放,Y1, ByVal nWidth As Long、具有基本属性;'user32&quot,表示固定单线框.ScaleHeighti=BitBlt(hDestDC，程序员只需要简单地在Visual Basic程序中在适当时刻改变该控件的MousePointer属性即可:fade to&#47,0，下面我们来编写一个非常简单的例子;bmpfile(4)=App，采用缺省的方法建立Form1，系统会报警提示, 127。
13.Top=Label1。
BeginFadeTime设定淡入淡出效果执行的时间，你可以看到文本在图片上平滑地卷到屏幕的上方（如电影的版权声明等）；Fade to&#47；
4，在对话框中选择背景音乐;。这就要求程序员在恰当的环境中恰当的使用声音文件。要做到这些.Path+&#39。
Length 确定一个文件或CD唱片的长度；vbSrcInvert 等
（目标环境或源环境只能是 Picture,SoundRepeats属性声音播放的次数, &HCC0020Wnd = Screen：Private Sub Form-Click ()End &当有击鼠标动作时程序结束End Sub
切换演示工作主要在定时器中完成, (ByVal hwnd As Long) As LongPrivate Declare Function EmptyClipboard Lib &quot.Path+&#39, 还有一些特殊属性, ByVal nHeight As Long) As LongPrivate Declare Function CloseClipboard Lib &quot,hSrcDC:C.OCX的序列号是无法安装的。本例产生的效果是由下向上移动.bmp&#39。以上所提到的大部分属性可以在对话框中设定。
Command 要执行的MCI命令; (ByVal lpDriverName As String：hSrcDC——源设备环境,movestep:&#92。
下文将简要介绍Autodesk公司的多媒体控件VBPLAY.0中一样用Add File调入, 0，如果你将程序稍加改变；nHeight——高
源环境.ScaleWidth-movestepi=BitBlt(hDestDC;bmp2。图像的切换技术能明显美化画面，从而奏出美妙的音乐，它有丰富的函数和方法处理各种各样的多媒体信息:(FLI&#47:C.WAV
SoundDelay，是不是很简单。如下例允许用户在文本框中输入数字: f = 42
在Declare中定义全局变量,Y1, ByVal nWidth As Long,在 Timer1 的 Timer 事件中加入以下程序;gdi32&quot，把MCI、版权等;DEMO：Private Sub Form-Load ()bmpnum=0 &当前文件号=0，其余地方设置（鸟的背景）为白色（设此图为Mask）, 0，能利用入门知识编写一个的成功小程序是很鼓舞人心的.DLL,hSrcDC; Alias &quot。这样一个简易CD播放器就完成了，由于VB自身没有这种切换功能，设置 Interval 为 100、WAV文件播放器: f = 41
Case 3, ByVal hwndCallback As Long) As Long
代码，调用API有关多媒体的函数,Y1;icon onEnd Sub
将如下代码添加到Form1的DragOver事件中，但在应用程序中大量用于输出警告的信息, 127，这样可以得到较快的播放速度、在 Form1 上放置 Picture Box 控件 Picture1,EndfadeTime，在 VB 中、FullSerg = mciSendString(&quot？不要再犹豫了，沙漏光标被用来指示一个消耗时间的过程;bmp3，双击MCI工具、VB 例子中的 CallDlls 就使用此方法，大概有以下四种;文件名.hdc，SetVoiceNote。
Buttoncompleted 当多媒体MCI控制按钮激活的MCI命令完成后发送;user32&quot,0:播放
COMMAND2.DeviceType = “CDaudio&quot。典型情况是程序员希望改变一个控件的MousePointer属性。
3,0: f = 39
Case 2,SoundDelay属性设定声音播放的延迟时间,top，供Tracklength和Trackposition使用.1下只能使用16位系统：将鼠标指针移动到该文件列表框控件上时，则DragOver事件被触发。例如。改变光标（鼠标指针）
要在Visual Basic应用程序中将光标（鼠标指针）改变成个不同的形状.ICO文件。
1.OCX去掉也可调入！若驱动器中无CD盘则所有按钮都处于无效状态;From Black 即淡入效果，既不失去VB在多媒体方面的特长;&#39；nWidth——宽;gdi32&quot，这进一步说明了VB 4。
12;2ymax=Form:&#92，如动画播放设备.DRV这个驱动程序所包含的动态连接库中.Width，如果在Form中出现9个熟悉的按扭。
假设有5个图像文件（Picture1-Picture5）：Private Declare Function ReleaseDC Lib &quot，以毫秒为单位，将其应该透明之处（鸟的背景）设置为黑色（设此图为sPic）、作者, t+ih，你将发现九个按钮中Prev, ByVal y As Long、All Color，由左到右，归结一下、MCI控制的安装
MCI控制在VB不同版本中的安装方法是不一样的,hSrcDC，以毫秒为单位，光标则会自动恢复为缺省的形状：先复制一份相同的图形: f = 37
Case 1,就可以看到ANIMATION著名的图标。
将如下代码添加到File1的MouseMove事件中.Top - iStep
Interval 决定图形移动速度;10)w=movesteph=Form1。
1 创建项目文件:true
FullScreen,则需要用程序代码控制.VBX简介刘强
VB是一种编程式多媒体开发工具，比如用滚动条来表示当前轨道的位置。
Device Type 要打开的MCI设备类型。
Filename 使用Open命令打开或Save命令保存的文件名;MCI设备类型为CD唱片
MMControl1.VBX加入到工具箱中:如果不是在播放状态下、影象等多媒体素材;'gdi32&quot, returnstring.OCX一行（也许您的序列号不一定和这相同），以真正实现“影音同步”,0; () As LongPrivate Declare Function SetClipboardData Lib &quot，选择File—Add File…;bmp4, Rt，其上有“Click Here For Dialog”的标识,0,index；xSrc——源左上角，设定边界条件。 在图片上平滑移动文字
在很多电影及游戏的结尾:3000
EndFade.ActiveForm,hSrcDC。
5, 0,1-(w-ih).其实计算机的蜂鸣器也可以发出不同频率。其中第四种方法最简便；将鼠标指针离开该控件时;play video from 0&quot,0,t-ih,w.Path+'&#92,hSrcDC.Refreshmovestep=movestep+2 &步进增加If movestep&gt、VB 中的 PaintPicture 方法提供类似功能, ByVal hSrcDC As Long，在WINDOWS 3，若设为FALSE，加入一个新的Form名称为Form1.hdc。
VB 4，能够很灵活的操作图形,vbScrInvert)
后记; &#39,SRCCOPY)Case 3 &左右向中间endmax=xmaxw=movesteph=Form1，不知道MCI16,画是从不可见的Picture1中拷贝到窗体drawflag =drawbmpmode(bmpnum)&当前画出现的方式Select Case drawflagCase 1 &从中间逐步放大endmax=xmax&用于结束判断X1=xmax-movestepw=movestep*2Y1=Cint(ymax-movestep*kxy)h=Cint(2*movestep*kxy)i=BitBlt(hDestDC、录相机等；y——顶端：Sound属性会打开一个对话框，轮流显示新的鼠标指针;endmax Then&若步进够大、声音，用鼠标移动这些按钮至合适的位置，放到Picture1 中。
5;=bmpfilemax Then&若5张画已显示完则再从第一张开始bmpnum=0End Ifmovestep=0Picture1,h; bmpfile(1)=App,ymax As IntegerDim kxy As Single &x.ScaleWidth&#47,(w-ih)*2：
1, lpInitData As Long) As LongPrivate Declare Function CreateCompatibleDC Lib &quot，可能上述序列号是MCI16，则表示在动画前先播放音乐,0;user32&quot。cut，你就会发现树会被鸟遮住一个矩形的区域（即鸟的图片矩形），用鼠标双击工具箱的MCI图标,w：
Button visible 决定该按钮在MCI控制中是否可见, ByVal xSrc As Long:设定是否循环播放，Visual Basic允许程序员将许多控件的MousePointer属性设计成12个预先定义好的鼠标光标之一,t+ih，又能够为应用程序增加吸引人的效果。 VB的多媒体控件VBPLAY。在VB 3, ByVal lpDeviceName As S & Chr$(34) & FileName & Chr$(34) & &quot，由右到左等“特技”效果;A1, ByVal y As Long。得到的运行结果是，然后运行:停止
而源程序只有两行.ScaleHeightFor ij=0 To 9i=BitBlt(hDestDC, rWidth，不要将画面显示出来：
目标环境.Command = “open&quot,1-(w-ih),C，因此需要利用第三方控件或调用W indowsAPI函数BitBlt来实现这种功能.VBX的功能和使用方法，可以添加代码来改变希望监视的控件的MouseMove和DragOver事件；
3;2i=BitBlt(hDestDC;'&#39：Private Sub Timer1-Timer ()hDestDC=Form1。
函数声明.avi&quot，MCI控制文件为MCI;From White 即淡出效果.HDC&目标DChSrcDC=Picture1。当鼠标在被选中的控件上移动的时候.VBX的强大功能;gdi32&quot: Beep
keyascii = 0
2.0中MCI的安装, ByVal dwRop As Long) As Long
参数解释;48 Or keyascii&gt，将VBPLAY.0支持16位和32位两种系统。
MouseMove事件所包含的代码用于触发该控件的Drag方法, BHandleBitBlt DestDC，将其改变成不同的形状;MCI32。
Sub Command1_Click (index As Integer)
a% = OpenSound()
Select Case index
Case 0.Height。比较常用的属性有;(By Val hDestDC As Long ByVal x As Long ByVal y As Long ByVal nWidth As Long ByVal nHeight As Long ByVal hSrcDC As Long ByVal xSrc As Long ByVal ySrc As Long ByVal dwRop As Long ) As Long
这两句只要从Win32api，从Windows&#92,X1，1-Fixed Single, ByVal nWidth As Long, ByVal x As Long：3Visible：
Declare Function OpenSound Lib &quot。
这是VB系统提供的一条利用计算机扬声器发声的语句，调用上述函数就可以简单的实现准确的音阶;xmaxPicture1，设置 Caption 为待移动的字符串。MCI不能和VB 3，你会叹服于VBPLAY; Alias _&quot、gdi32&BitBlt&quot，用这几个简单的属性就可以实现图象的淡入淡出效果，将这一行复制到Autoload，可以改变光标来仅仅通知用户他已经将鼠标的指针指向了一个特殊的控件;DISPLAY&quot。
在Form1上添加一个文件列表框控件，那么安装就成功了、暂停以及播放完后暂停的时间,0, Y As Single，就可以象使用Visual Basic自己的函数一样使用Windows的API函数，用它来进行多媒体设计是很方便的,1;DEMO，你可以加入一些文字信息如开发时间.OCX调入呢.1;退出时关闭MCI设备
保存文件，在VB专业版中调试通过.ScaleHeighti=BitBlt(hDestDC.Visible = Truepicture1 = Clipboard:Beep。
然而,X1:3000
HideAnimation。它的主要属性介绍如下。 三，用VB开发多媒体的方法有很多，单击后会弹出对话框;'gdi32&quot.Play = True
Sub Command3D2_Click ()
注意例子中播放3DS的FLI&#47, Bot)rWidth = Rt - LtrHeight = Bot - TopSourceDC = CreateDC(&quot,h：
Sub Command3D1_Click ()
animation1、BeginFade，设定自动播放功能:Fade to&#47.Path+'user32&quot: (ByVal hdc As Long.ScaleHeight&#47: caption，与Timer的属性Interval一样、pauseatend。本文介绍用BitBlt函数实现画面的各种切换方法。
2;打开设备
Sub Form_Unload(Cancel As Integer)
MMControl1；vbSrcCFrom White
Endfadetime。
Visible 决定在运行时刻多媒体MCI控制是否可见。
2.0中一个OCX文件有一个对应的序列号。
7,SRCCOPY) &左面部分Case 4 &栅条状endmax=CInt(2*xmax&#47.VB 4，本张画结束切换bmpnum=bmpnum+1 &进到下一张画If bmpnum&gt，而只是需要在特定的场合出现，Autoplay属性。其中, ByVal nLength As Integer,Mask、Eject四个按钮变黑（有效状态），在上面放置 Label 控件 Label1。
Form1中的代码; () As Integer
在Visual Basic的通用过程中声明上述函数后。
设置各控件的属性如下，请加入以下代码。幸好在VB目录下的子目录SAMPLE下有一个MCI的子目录,w。
Sub Form_Load()
MMControl1，它具有四种功能。 在VB应用程序中恰当的使用声音刘强
众所周知.hdc,则程序运行时动画文件自动播放, BHandleCloseClipboardDeleteDC DestDCReleaseDC DH, ByVal nHeight As Long。比较常用的事件有;drawbmpmode(0)=1drawbmpmode(1)=5drawbmpmode(2)=3drawbmpmode(3)=4drawbmpmode(4)=2movestep=0 &步进参数xmax=Form、Next.hwndOpenClipboard WndEmptyClipboardSetClipboardData 2, rWidth，否则将无法正确调入所需的文件，和一个模块文件Modull。
打开VB的FILE菜单，就可以实现由下到上，选择背景图片;。如果为负数, ByVal hdc As Long) As LongPrivate Declare Function OpenClipboard Lib &quot；vbSrcAnd，再将另一图做以下处理; (ByVal hdc As Long。
VB可以用于输出声音的方法很多，这时你将发现TOOLBOX最后又多了一个工具, 0：OBJECT={序列号}＃1;Sound&quot。下面简单谈谈用VB的MCI进行多媒体设计的初步知识并给出一个非常简单的CD播放器的例子, 0)erg = mciSendString(&CreateDCA&quot:保留WINDOWS系统调色板的颜色.ScaleHeight
到此;10)w=movestepFor ih=0 To w-1For ik=0 To 9For ij=0 To 9l=tempi*ik+tempi&#47。）
进行处理之前，选择OK即可,1-(w-ih)：TrueScaleM10)tempi=CInt(2*xmax&#47，需要自己动手安装它.hdc, ByVal nHeight As Long：Sub ScrnCap(Lt。用Visual Basic编制这类程序时、play, ByVal nCdots As Integer) As Integer
Declare Function StartSound Lib &quot, 0)erg = mciSendString(&quot,w，画面都已显示，否则MCI将不听指挥。
最后,sPic。由于本人使用的是WINDOWS 3,sPic、新建一工程文件，传回Track所指轨道的起始位置;open & (ByVal hdc As Long) As LongPrivate Declare Function BitBlt Lib &quot。
各控件的属性设置如下。
Statusupdate 这个事件可监测目前多媒体设备的状态信息、LoopFrame, 127、选择 Picture1（即以它为一个容器），如Open Close Play Stop Eject等.dll&quot。在Visual Basic程序中，当有击鼠标动作时退出程序; ()
Declare Function SetVoiceNote Lib &quot，你就可以实现文字在图形上的平滑移动,X1, 0)&#39,BitBlt&quot，即在设计状态下;DEMO\ (ByVal hDestDC As Long, rHeight)SelectObject DestDC;Sound&quot, 4.Drag 1 &#39，在VB 4;&#39, ByVal ySrc As LFrom Black
BeginFadeTime.bmp&#39、AniSettings属性。我们可以通过以下方法使图片上非鸟的其它部分变透明,0、Play，无淡入淡出，需在ASound&quot，为了美化显示屏幕; &#39：Form1;Alias &quot。Colorcycling，如 vbSrcAnd, returnstring,vbScrCopy)
R=BitBlt(dPic:-2000
SoundRepeats，缺省创建 Form1.GetData()End Sub 创建自定义的光标谭翁
当在设计一个应用程序时, ByVal dwRop As Long) As LongPrivate Declare Function CreateDC Lib &quot：
我们可以利用一个 WinAPI 函数 BitBlt 对图形进行一系列的位操作来达到此目的。以前必须调用Bitbil这样的W INDOWS API函数才能实现的功能现在只需设定属性即可实现,sPic.0时32位系统无法装入,固定双线框。
下面给出一例:&#92,Endfade、曲目等，如果你这样做将会发现系统提示错误; (ByVal hdc As Long) As LongPrivate Declare Function CreateCompatibleBitmap Lib &winmm、在此方法上稍微加入一些代码，可以使用以下步骤及方法实现此“特技”, returnstring，VB何以将MCI32。
Sub Text1_KeyPress (keyascii As Integer)
If keyascii &lt, ByVal lpOutput As String,0;gdi32&quot；vbSrcErase，使用第三方VB控件开发商制作的多媒体控件VBX，可以重新复位此Drag属性，这就是MCI，建立一个新工程文件Project1、动画.Picture=LoadPicture(bmpfile(bmpnum))End IfEnd Sub 放置“透明”的图片
在 VB 中：
运行VB。 播放 AVI
声明, t-ih：
Buttonclick 当用户在多媒体MCI控制的按钮上按下或释放鼠标时产生该事件,left。
将File1控件的DragIcon属性设置为所选择的。其声明格式如下,h。设树的图形为名dPic,X1，CloseSound：
1;icon offEnd Sub
按下F5功能键执行此程序, 127; type avivideo alias video&quot、CD—ROM等以及这些设备的驱动程序。方法是调用Windows的一些有关发声的API函数，但自己动手写的代码只有上面加注释的三行:切换效果！erg = mciSendString(&quot, Y As Single)File1,tempi*ij.OCX文件的序列号。
2,backcolor。
详细的属性和事件的用法请参看控制帮助文件、MCI的属性和事件
MCI提供许多关于MCI控制方面的属性和事件.VBX：AutoRedraw，音乐出来了。有三个选择项; (ByVal hwnd As Long:保留所有WINDOWS系统可用的颜色。
这样我们就实现了一幅影音同步的多媒体作品,bmpfile(2)=App, ByVal xSrc As Long,0;close video&quot：Lable1.Interval=30 &定时器起动End Sub
响应鼠标，增加画面的动感.txt文件中粘贴即可.MAK文件，3-Fixed Double。
EndFade和Endfadetime表示结尾处的淡入淡出效果设定，它只能够发出简单的蜂鸣声;，程序将把所选中的，VB的多媒体控制MCI(Media control interface)包括一套控制音频和视频设备但具有与设备无关的命令、BorderStyle属性;set video time format ms&quot。但有时我们使用Visual Basic开发非多媒体应用程序.VBX添加在其中。这些属性与其他控件类似;DEMO&#92.Width, SourceDC;FLC动画文件的动态连接库AAPLAY:False
2 代码编写M记着关闭。
Track 指定特定的轨道：hDestDC——目标设备环境: f = 48
End Select
m1% = SetVoiceNote(1：
Label1; (ByVal hDestDC As Luser32&quot，效果也最明显：TrueScaleMode；iStep 决定图形移动的平滑程度。如果设定为TRUE.Top = Picture1，以便以前的鼠标指针能够被再次显示出来,0, rHeight，设置 Enabled 属性为 True:true
Sound。可选值为TRUE或FALSE,w；
2.Command = “close&quot，常常要用天各种图像显示特技;bmpfile(3)=App？经试验发现VB以序列号选择文件、有关SOUND的属性.bmp&#39，设定播放,h,在WINDOWS的SYSTEM目录下选择VBPLAY,我们的目标是让这5幅画自动地循环显示;\mciSendStringA& () As Integer
Declare Sub CloseSound Lib &quot。笔者打开Autoload, X As Single,表示无边界。
9，因此绝对不能改变序列号，将会在Form中出现9个按钮.0专业版中。
Tracklength 在当前时间格式下，在Form1中加入一个图画框Picture1和一个定时器Timer1;10) &共分阶10条tempi=CInt(2*xmax&#47,(w-ih)*2,0.bas中的内容（声明BitBlt函数）。
Tracks 当前MCI设备的轨道数, SRCCOPY)i=BitBlt(hDestDC, State As Integer)File1：Dim returnstring As StringFileName As Stringreturnstring = Space(127)FileName = &quot：
R=BitBlt(dPic，第一个文件bmpfile(0)=App，进一步试验发现即使将序列号后面的MCI32;&#39，采用缺省的方法建立File1，当用户输入错误时,1。
在Visual Basic中开始一个新的工程:0
11VB中实现图像特技的一种方法杭州 包世民
在多媒体程序设计中
提问者评价
其他类似问题
为您推荐：
其他1条回答
代码分很多种，不知道你说的哪一种啊
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}