代码搜索：msgbox

找到约 3,543 项符合「msgbox」的源代码

代码结果 3,543
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/344193/11902748

bas sartos.bas

Attribute VB_Name = "Sartos" Option Explicit ''\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '对连续的二个二进制值进行比较 '______________________________________________________________
·
www.eeworm.com/read/154899/11919867

bas 函数.bas

Attribute VB_Name = "Module1" Public yhm As String '用户名 Public xm As String '姓名 Public mm As String '密码 Public yhsf As String '用户身份 '记录集函数，用来执行sql 语句，返回一个记录集 Public Function exesql(ByVal sql
·
www.eeworm.com/read/341032/12112381

bas dbpack_sample.bas

Attribute VB_Name = "DBPack_Sample" Option Explicit Private Sub TestRecord() Dim objTest As New DBPool If Not objTest.ConnectDB Then Exit Sub objTest.Record.AddField "ID" objTe
·
www.eeworm.com/read/254439/12135998

frm form2.frm

VERSION 5.00 Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX" Begin VB.Form frmAddGrade BackColor = &H00C0C0C0& Caption = "成绩录入" ClientHeight
·
www.eeworm.com/read/151425/12212000

txt 式子计算.txt

Dim a As String Dim i, j As Double Dim n As Integer Private Sub Command1_Click(Index As Integer) If n 0 Then Right a, 1 End If If Text1.Text = "0" Then Text1.Text = "" End If Select C
·
www.eeworm.com/read/151247/12226171

frm frmstation.frm

VERSION 5.00 Begin VB.Form frmStation BorderStyle = 1 'Fixed Single Caption = "车站管理" ClientHeight = 4830 ClientLeft = 45 ClientTop = 435
·
www.eeworm.com/read/151247/12226194

frm frmproduct.frm

VERSION 5.00 Begin VB.Form frmProduct BorderStyle = 1 'Fixed Single Caption = "车站管理" ClientHeight = 4830 ClientLeft = 45 ClientTop = 435
·
www.eeworm.com/read/151211/12228125

txt 30(1).txt

非常VB测声卡 　 系统是否支持声音 声明： Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Long 例子： Dim i As Integer i = waveOutGetNumDevs() If i > 0 Then MsgBo
·
www.eeworm.com/read/151211/12228188

txt 59(1).txt

系统是否支持声音 声明： Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Long 例子： Dim i As Integer i = waveOutGetNumDevs() If i > 0 Then MsgBox "系统安装声卡" Else MsgBox
·
www.eeworm.com/read/252808/12262179

frm frmland.frm

VERSION 5.00 Begin VB.Form frmLand BackColor = &H80000012& Caption = "登陆" ClientHeight = 4620 ClientLeft = 60 ClientTop = 450 ClientWidt
·