精华内容
下载资源
问答
  • 关于vb中删除数据库记录的语句Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"rsd.Open Sql, conn, adOpenStatic, adLockOptimisticYN = MsgBox("确定删除", vbYesNo)If YN = 6 ...

    关于vb中删除数据库记录的语句

    Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"

    rsd.Open Sql, conn, adOpenStatic, adLockOptimistic

    YN = MsgBox("确定删除", vbYesNo)

    If YN = 6 Then

    rsd.Delete

    End If

    rsd.Close

    conn.Close

    如果有多条张三的记录,只能删除第一条记录。

    如果想删除查询到的多条记录,请做一个循环。

    vb中怎幺通过adodc删除数据库表中的所有数据

    VB通过Sql结构化查询语句中Delete子句,赋值给Adodc数据控件的RecordSource 属性,来执行删除数据库一个表的所有记录。

    RecordSource 属性,返回或设置Data控件的基本表、SQL语句。

    SQL 语句:

    SQL 中的以关键字打头、完整描述一个操作的完整的短语。例如:SELECT * FROM Orders。SQL 语句不应和语句混淆。

    以下是删除wd.mdb数据库的jishijilu记录表的所有记录的代码:

    Private?Sub?Command1_Click()

    Dim?sql?As?String

    On?Error?GoTo?error

    sql?=?"delete?*?from?jishijilu"

    Adodc1.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\data\wd.mdb;Persist?Security?Info=False"

    Adodc1.RecordSource?=?sql

    Adodc1.Refresh

    Exit?Sub

    error:

    End?Sub

    VB中使用SQL语句删除记录

    Private Sub Form_Load()

    Dim 空白 As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    空白.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TEST.mdb"

    空白.Execute ("delete from TEST where NAME_CODE=0567") '此处的0567不是数字类型所以要改为

    空白.Execute ("delete from TEST where NAME_CODE='0567'") '加上单引号

    End Sub

    VB中如何向SQL数据库中的表添加和删除数据

    链接数据库的字符串

    Public Const Conn As String = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _

    "User ID=sa;PWD=sa;Initial Catalog=hr;Data Source=127.0.0.1"

    'hr是数据库名称 Catalong=数据库名称

    Private IsConnect As Boolean 判读数据库是否链接

    Private 空白n As ADODB.Connection 链接数据库的connection对象

    Private rs As ADODB.Recordset 保存结果集的recordset对象

    数据库链接程序

    Public Sub Db_Connect()

    如果链接标记为真 返回

    If IsConnect = True Then

    Exit Sub

    End If

    关键字New用来创建新对象空白n

    Set 空白n = New ADODB.Connection

    设置空白n的链接字符串的connectstring属性

    空白n.ConnectionString = Conn

    打开数据库

    空白n.Open

    判断链接状态

    If 空白n.State <> adStateOpen Then

    如果不成功 显示提示 退出程序

    MsgBox "链接数据库失败"

    End

    End If

    设置链接标记 表示已经链接到数据库

    IsConnect = True

    End Sub

    断开数据库的链接程序

    Public Sub Db_Disconnect()

    如果链接标记为假,表明已经断开 直接返回

    If IsConnect = False Then

    Exit Sub

    End If

    关闭链接

    空白n.Close

    设置链接标记,表明已经断开链接

    IsConnect = False

    End Sub

    '只用来执行Insert,update,delete语句

    Public Sub sqlExt(tmpSql As String)

    创建空白mand对象cmd

    Dim cmd As New ADODB.Command

    连接到数据库

    DbConnect

    设置cmd的ActiveConnection属性,指定其关联的数据库链接

    Set cmd.ActiveConnection = 空白n

    设置要执行的命令文本

    cmd.CommandText = tmpSql

    执行命令

    cmd.Execute

    清空cmd对象

    Set cmd = noting

    断开与数据库的连接

    Db_Disconnect

    End Sub

    执行数据库查询程函数

    Public Function QueryExt(tmpSql As String) As ADODB.Recordset

    创建recordset对象rst

    Dim rst As New ADODB.Recordset

    链接到数据库

    Db_Connect

    设置rst的ActiveConnection属性,指定与其关联的数据库连接

    Set rst.ActiveConnection = 空白n

    设置游标类型

    rst.CursorType = adOpenDynamic

    设置锁定类型

    rst.LockType = adLockOptimistic

    打开记录集

    rst.Open tmpSql

    返回记录集

    Set QueryExt = rst

    End Function

    VB中怎幺对数据库进行添加删除修改的操作

    下面的例子就是对数据库进行添加删除修改的操作:

    Private Sub Command1_Click()

    For i = 0 To 5

    Text1(i).Text = ""

    Next i

    Adodc1.RecordSource = "select * from " & s1 & " order by 编号"

    Adodc1.Refresh

    If Adodc1.Recordset.RecordCount > 0 Then

    Adodc1.Recordset.MoveLast

    Text1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")

    Else

    Text1(0).Text = "G0001"

    End If

    End Sub

    Private Sub Command2_Click()

    If Adodc1.Recordset.EOF = False Then

    c = MsgBox("您确认要删除该记录吗?", vbOKCancel, "删除提示信息")

    If c = vbOK Then

    Adodc1.Recordset.Delete

    Adodc1.RecordSource = "select * from 人员表"

    Adodc1.Refresh

    End If

    Else

    MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"

    End If

    End Sub

    Private Sub Command3_Click()

    If Text1(0).Text = "" Or Text1(1).Text = "" Then

    MsgBox "请选择需要改动的记录信息!", vbOKOnly, "错误提示"

    Else

    c = MsgBox("确定要修改该记录吗?", vbOKCancel, "提示信息")

    If c = vbOK Then '如果确认修改的话进行修改操作

    If Text1(1).Text = "" Then

    MsgBox "姓名不能为空值!", 48, "修改****"

    Else

    '连接所要修改的数据库

    con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

    '开始修改数据库

    con.Execute ("UPDATE " & s1 & " SET 姓名='" & Text1(1).Text & "',年龄=" & Text1(2).Text & ",学历='" & Text1(3).Text & "',年级=" & Text1(4).Text & ", 入学时间='" & Text1(5).Text & "' where 编号='" & Trim(Text1(0)) & "'")

    MsgBox "信息修改成功", 64, "修改****"

    con.Close

    Adodc1.RecordSource = "select * from 人员表"

    Adodc1.Refresh

    End If

    End If

    End If

    End Sub

    Private Sub Command4_Click()

    Adodc1.RecordSource = "select * from 人员表 where 编号='" + Text1(0).Text + "'"

    Adodc1.Refresh

    If Adodc1.Recordset.RecordCount > 0 Then

    MsgBox "该信息已存在,信息保存不成功", 64, "保存****"

    Else

    cc = MsgBox("您确定要保存该信息吗?", 33, "信息保存提示")

    If cc = vbOK Then

    If Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Or Text1(5).Text = "" Then

    MsgBox "请确认,人员的姓名、年龄、学历、年级和入学时间不能为空", 48, "保存****"

    Else

    con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"

    con.Execute ("insert into 人员表 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "', '" & Text1(5).Text & "')")

    MsgBox "信息修改成功", 64, "修改****"

    con.Close

    Adodc1.RecordSource = "select * from 人员表"

    Adodc1.Refresh

    End If

    Else

    End If

    End If

    Set DataGrid1.DataSource = Adodc1

    End Sub

    如何使用Delete语句从VB数据库删除信息?

    用sql语句的删除命令:delete from (表名) where (条件)

    举例如下:(最好系统学一下,因为不知道你用的什幺方法进行vb操作)

    (我为推荐一本书,电大的计算机大专计算机信息方向的《VB程序设计》刘世峰编,通学习你一切都通了)

    Private Sub Command1_Click()

    '定义字符

    Dim strSQL As String

    '定义一个整型变量

    Dim i As Integer

    i = MSHFlexGrid1.Row

    '处理无记录行

    If MSHFlexGrid1.TextMatrix(i, 1) = "" Then

    MsgBox "请选择一个记录!", vbQuestion + vbOKOnly, "信息提示"

    Exit Sub

    End If

    '编定SQ查询语句

    strSQL = "Delete From 通讯簿 "

    strSQL = strSQL + "Where 姓名='" + MSHFlexGrid1.TextMatrix(i, 1) + "'"

    '提示用户要谨慎删除

    If MsgBox("是否要删除,请慎重!", vbQuestion + vbOKCancel, "信息提示") = vbOK Then

    '执行删除命令

    ADO空白.Execute strSQL

    End If

    DisplayGrid1

    End Sub

    利用VB来删除SQL中一行的数据,代码如何编写

    sql="select * from tbluser where username='"&text1.text&"'"

    rs.open sql,conn,1,3

    rs.delete

    VB.NET 里如何给SQL SERVER数据库插入记录和删除记录,插入字段,删除字段

    使用 VB.NET 连接sqlserver执行sql命令会不会? 不会的话去百度搜。

    插入记录和删除记录,插入字段,删除字段 的sql语句会不会写? 不会的话去百度搜。

    用vb怎样删除sql server数据库中一条数据

    简单说就是SQL语句中的引号问题。

    SQL = "delete from Goods where GoodsName='" & Text2.Text & "'" + rsTable.Open SQL, pubConn, adOpenKeyset, adLockOptimistic

    按你原来的写法,执行的SQL语句就是

    delete from Goods where GoodsName='&Text2.Text&'

    这里的Text2.Text被认为是字符串的一部分,不是变量了。

    在vb中删除sqlserver中表的记录,我是想删除查询到底语句,如何实现

    你的查询应该是有条件的,既然如此

    用ado执行删除语句即可,条件就是查询的条件

    示例:connection.Execute "delete from table where 条件"

    展开全文
  • 有什么理由为什么Java布尔值仅采用true或false为什么不采用1或0?这不是一个复杂的问题,但是我也没有理由反对。您忘记了FILE_NOT_FOUND因为它是强类型的在Java,只能使用" true"和" false"来确定布尔条件。 您不...

    有什么理由为什么Java布尔值仅采用true或false为什么不采用1或0?

    这不是一个复杂的问题,但是我也没有理由反对。

    您忘记了FILE_NOT_FOUND

    因为它是强类型的

    在Java中,只能使用" true"和" false"来确定布尔条件。 您不能像在C和C ++中那样将其他原始类型用作默认的" true"或" false"。

    因为它是用这种方式定义的。 纳夫说。

    因为它是f * king布尔值!)))))))数字会搞砸概念并鼓励混淆代码。

    为了克服这个问题,我使用了boolean bValue = Integer.valueOf(strValue) > 0;

    因为0或1是数字,而不是布尔值。

    Java与C和C ++等语言不同,Java将boolean视为完全独立的数据类型,该数据类型具有2个不同的值:true和false。值1和0为int类型,并且不能隐式转换为boolean。

    在JVM级别上,布尔值,字节,短型,字符和整数都被视为整数,并且布尔值确实表示为0和1。因此,"不可隐式转换"仅在Java语言级别。

    另外,Java公开尝试从过去学习,以便消除所有类别的错误。例如范围从小功能(无隐式布尔表达式)到大功能(垃圾收集)

    从克里斯的观点出发,写char x =(char)88945是合法的;或char y =(char)-489;。

    C最初没有bool类型,因此您必须使用0或1。

    您没有真正回答问题。他们问为什么。

    因为布尔值具有两个值:true或false。请注意,这些不是字符串,而是实际的布尔文字。

    1和0是整数,没有理由通过将它们设置为" alternative true"和" alternative false"来混淆事物(对于使用Unix退出代码的情况则相反吗?)。在Java中使用强类型时,应该只应该有两个原始布尔值。

    编辑:请注意,您可以根据需要轻松编写转换函数:

    public static boolean intToBool(int input)

    {

    if (input < 0 || input > 1)

    {

    throw new IllegalArgumentException("input must be 0 or 1");

    }

    // Note we designate 1 as true and 0 as false though some may disagree

    return input == 1;

    }

    虽然我不建议这样做。请注意,您如何不能保证int变量确实为0或1;并且没有100%的明显语义代表什么是真的。另一方面,boolean变量始终是true或false,很明显,哪个变量是true。 :-)

    因此,不要使用转换函数,而要对表示真假概念的所有内容都使用boolean变量。如果您必须使用某种原始文本字符串(例如,用于存储在平面文件中),则" true"和" false"的含义更加清楚,可以通过库方法Boolean.valueOf立即转换为布尔值。

    +1:同样的原因" x"不是数字,而123不是日期。

    对此进行具体说明会使您远离VB中的TRUE为-1,而在其他语言中则为NON ZERO。保持布尔字段为true或false会使java不在此参数范围内。

    因为创建Java的人希望boolean明确表示true或false,而不是1或0。

    语言之间尚无关于1和0如何转换为布尔值的共识。 C使用任何非零值表示true,使用0表示false,但是某些UNIX shell则相反。使用int会削弱类型检查,因为编译器无法防止传入的int值不应该在布尔上下文中使用的情况。

    最后一段实际上是在讨论布尔值如何转换为int,而不是相反。是的,在C int foo = (a!=b);中将为0或1。但是在C中,任何非0值在布尔上下文中均为" true"。 if(foo)不检查foo==1,而是检查foo!=0。因此,如果您编写if(foo),则编译器肯定会处理它。仅当您执行_Bool equal = a & b之类的操作时,您才会遇到麻烦,因为4 & 2 == 0即使它们都为真。我认为这就是您要提出的重点。

    其他答案未指出的一件事是,不将整数视为真值的一个优点是,它避免了这种C / C ++错误综合症:

    int i = 0;

    if (i = 1) {

    print("the sky is falling!

    ");

    }

    在C / C ++中,错误地使用=而不是==会导致条件意外地将其评估为" true"并更新i作为偶然的副作用。

    在Java中,这是编译错误,因为分配i = 1的值具有类型int,并且此时需要boolean。在Java中遇到麻烦的唯一情况是,如果您编写这样的me脚代码:

    boolean ok = false;

    if (ok = true) {  // bug and lame style

    print("the sky is falling!

    ");

    }

    ...任何具有"良好品味"的人都会写成...

    boolean ok = false;

    if (ok) {

    print("the sky is falling!

    ");

    }

    相关说明:由于JVM对布尔类型的支持有限,因此Java编译器使用int表示布尔值。请参见第3.3.4节布尔类型。

    在JVM中,整数零表示false,任何非零整数表示true

    (来源:Bill Venners撰写的Inside Java Virtual Machine)

    从技术上讲这是三个方面的错误。 1)Java编译器不"代表"布尔值。它生成字节码。 2)字节码处理的是对象字段,抽象堆栈插槽和数组中的插槽。在某些情况下,保存boolean值的插槽映射为32位字(在典型的JVM实现中),但这并不意味着JVM将其视为ints。 3)在boolean[]中,用于容纳一个元素的插槽为8位,而不是32位。

    我也要警惕依靠教科书作为此书的来源。最终的来源是JVM规范所说的,而不是某些作者为了使目标读者可以理解而提出的"旋转"。 (我还没有读过这本书,所以不要把它当作对它的批评。它只是一个警告……)

    @StephenC"将对布尔值进行操作的Java编程语言表达式编译为使用Java虚拟机int数据类型的值" docs.oracle.com/javase/specs/jvms/se8/html/

    同一部分还说:" Java虚拟机使用1表示true和0表示false对布尔数组组件进行编码。在Java编程语言布尔值由编译器映射为Java Virtual Machine类型int的值的情况下,编译器必须使用相同的编码。" -第一句话与Bill Venners的报价直接矛盾。第二句话有一个有趣的细微差别。

    细微之处在于,这并不是说Java编译器必须使用JVM int类型来表示Java boolean类型。此外@mdewit,您引用的文本1)实际上仅适用于表达式,而2)只是描述性的,而不是描述性的。 (并没有说Java编译器必须将其编译为JVM int类型。)

    我同意Bill Venners的报价绝对不正确。因此,由于该文档仅声明将表达式编译为使用int数据类型的值(我想选择int是因为它是使用效率最高的原语),我想知道还有什么其他方法比映射更合理使用?布尔值作为一个int。对于布尔数组,将它们映射为字节是有意义的,因为实际上将使用较少的空间,但是这种担心不适用于单个值。无论如何,谢谢您的解释。

    对此进行具体说明会使您远离VB中的TRUE为-1,而在其他语言中则为NON ZERO。保持布尔字段为true或false会使java不在此参数范围内。

    即使在C ++中有一个布尔(布尔值的缩写)数据类型。但是在C ++中,任何非零值都是包含负数的真值。 0(零)被视为false。在JAVA中,有一个单独的数据类型boolean,表示true和false。

    在c和C ++中,没有称为BOOLEAN的数据类型

    这就是为什么它使用1和0作为真实的假值。

    并且在JAVA 1和0中被视为INTEGER类型,因此在Java中会产生错误。 Java具有自己的布尔值true和false,以及布尔数据类型。

    ????快乐的编程.. ??

    C ++具有bool类型,并且true和false是关键字。 C11有_Bool,或者您可以#include获取bool。 区别在于整数和指针类型可隐式转换为布尔值,因此您可以编写bool condition = a而不是bool condition = (a!=0);。 或if(a){}

    展开全文
  • 高中信息技术vb试题及答案 VB1 页 共 6 页1.下面选项内不属于描述面向对象程序设计特征的名词是( )A.继承性 B.多态性 C.连续性 D.封装性2.VB 数据类型 Boolean表示布尔型,布尔型变量占( )字节。A.4 B....

    41528d3028836879cd698677c3999917.gif高中信息技术vb试题及答案

    VB第 1 页 共 6 页1.下面选项内不属于描述面向对象程序设计特征的名词是( )A.继承性 B.多态性 C.连续性 D.封装性2.VB 中数据类型 Boolean表示布尔型,布尔型变量占( )字节。A.4 B.3 C.2 D.13.表达式 Cint(13.2/2)的结果是( )A.6.5 B.6 C.7 D.54.表达式 Len(String(6, “9“))的值是( )A.9 B.6 C.999999 D.出错5.要在窗体上仅显示文字,选用( )控件最合适A.LABEL B.TEXTBOX C.COMMANDBUTTON D.IMAGE6.从编写到运行一个完整的程序的流程是( )。A.编译程序、运行程序 B.编译程序、测试程序、运行程序C.编写程序、编译程序、运行程序 D.需求分析、编译程序7.关于结构化程序设计的思想方法,下列选项中不属于其核心思想的是( )。A.自顶向下 B.逐步求精 C.模块化 D.可复用8.下列关于算法的特征描述不正确的是( )A.有穷性:算法必须在有限步之内结束 B.确定性:算法的每一步必须有确切的含义 C.输入:算法至少有一个输入 D.输出:算法至少有一个输出9.下面属于结构化程序设计的基本方法的是( )A.筛选法 B.递归法 C.归纳法 D.自顶向下10.在VB中,表达式Mid(“程序设计“,2,2)的结果是( )A.程 B.序 C.序设 D.出错11.以下不是描述算法的方法有( )A.自然语言 B.流程图 C.伪代码 D.E-R 图12.在 VB中,表达式 Mid(“程序设计“,2)的结果是( )A.程序 B.序 C.序设计 D.出错13.下列程序,当单击窗体时s的值是( )Private Sub _Click()Dim s as booleana = 2: b = 3: c = 4: d = 5s = a > b And 2 * a > c Or c B No A.顺序结构 B.选择结构 C.循环结构 D.以上都不是40.在求圆周长及面积程序中,半径 r 可能带小数位,所以应将半径 r 定义为( )类型。A.Integer B.Date C.Long D.Single41.VB中数据类型Integer表示整数类型,其取值范围是( )A.0到65535 B.0到32767 C.-65536到65535 D.-32768到3276742.在VB中,表达式21\4 + 21 Mod 4 的结果是( )A.5 B.6 C.7 D.出错43.在VB中,表达式Int(-5.8)的结果是( )A.-5 B.-6 C.-5.8 D.出错44.设a=2,b=3,c=4,表达式a>b And (c>=b Or 3*a>c)值是( )A.2 B.3 C.True D.False45.下面表达式的值是False的有( )。A.“989“ > “99“ (说明:字符串比较首字符的 ascii码,其中数字 0C.2000 >1997D.“3“ > “2“46.判断x是否在区间(a, b]上,在VB中以下哪个逻辑表达式是不正确的( )A.a=xB.a或是连 =x And a len (“basic“) C.2000 253.在VB中,表达式Mid(“Visual Basic程序设计“,8,5)的结果是( )A.Visual B B.l Basic C.Basic D.出错54.对于窗体,Click (单击)是它的一个( )A.重要对象 B.重要方法 C.重要事件 D.重要属性55.以下是一段Visual Basic程序,它的基本结构属于( )…A = 1b = 0m = Ax = m + bb = b + 1y = x + bA.顺序结构 B.选择结构 C.循环结构 D.树型结构56.下列程序段运行后,变量Value的值是( )x = 20If x >= 10 ThenValue = 5 * xElsue = 4 * xEnd IfA.100 B.80 C.90 D.7057.在VB中,表达式Sgn(-5.8+5.8)的结果是 ( )A.sgn(0) B.0 C.1 D.-158.VB中的数据类型Long表示( )A.布尔型 B.整型 C.字符串型 D.长整型59.下列关于常量的描述不正确的是( )A.在VB中的常量有数值型常量、字符常量等 B.数值型常量类似于数学中的常数C.用一对双引号括起来的字符串称为字符常量 D.字符串常量包括双引号本身60.表达式Abs (-3.6)*sqr(100)的值是( )A.-360 B.360 C.-36 D.3661. 使用Visual Basic编程,我们把工具箱中的工具称为( ) A.事件 B.工具 C.控件 D.窗体62.以下是一段Visual Basic程序,它的基本结构属于( )…IF x>0 ThenX=x+1ElseX=x-1End IfA.顺序结构 B.选择结构 C.循环结构 D.树型结构63. 下列程序,当单击窗体时s的值是( )Private Sub _Click()s = 11 \ 3 + 11 Mod 3Print sEnd SubA.3B.4C.5D.664.图形符号“ “在算法流程图描述中表示( )A.算法的开始或结束 B.输入输出操作 C.处理或运算的功能 D.用来判断条件是否满足需求VB第 3 页 共 6 页65.代数表达式 改成 VB表达式是( )dcbaA.a/b+c/d B.a/(b+c)/d C.(a/b+c)/d D.a/(b+c/d)66.在 VB中,表达式 2^3的结果是:( )A.5 B.8 C.6 D.367. .在声明一个变量时,可能用到的关键字是( )A、End B、As C、Sub D、Exit68. 以下是一段Visual Basic程序,它的基本结构属于( )…For i=0 to 100S=s+iNext i…A.顺序结构 B.选择结构 C.循环结构 D.树型结构69.下列关于算法的说法不正确的是( )A.算法是解决问题的方法和步骤 B.解决问题的过程是实现算法的过程 C.算法是程序设计的“灵魂“ D.以上说法都不对70.图形符号““在算法流程图描述中表示( )A.算法的开始或结束 B.输入输出操作 C.处理或运算的功能 D.用来判断条件是否满足需求71.在 VB中,表达式 5\2 的结果是( )A.2 B.3 C.2.5 D.172. 在 VB中,表达式 Len(“程序设计“)的结果是( )A.0 B.2 C.4 D.873. 一个按钮“Command1“的 Caption是该按钮对象的( )A.属性 B.方法 C.事件 D.过程74. 以下是一段

    展开全文
  • 太冗余了....Private Sub Check1斜体_Click()If Check1斜体.Value = 1 ThenText1.FontItalic = TrueElse: Text1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check2粗体_Click()If Check2粗...

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

    刚写的渣代码......太冗余了....

    Private Sub Check1斜体_Click()

    If Check1斜体.Value = 1 Then

    Text1.FontItalic = True

    Else: Text1.FontItalic = False

    End If

    End Sub

    Private Sub Check2粗体_Click()

    If Check2粗体.Value = 1 Then

    Text1.FontBold = True

    Else: Text1.FontBold = False

    End If

    End Sub

    Private Sub Command1_Click()

    End

    End Sub

    Private Sub Option1红_Click()

    Text1.ForeColor = vbRed

    End Sub

    Private Sub Option2黄_Click()

    Text1.ForeColor = vbYellow

    End Sub

    Private Sub Option318_Click()

    Option318.Value = True

    Text1.FontSize = 18

    End Sub

    Private Sub Option3蓝_Click()

    Text1.ForeColor = vbBlue

    End Sub

    Private Sub Option420_Click()

    Option420.Value = True

    Text1.FontSize = 20

    End Sub

    Private Sub Option4绿_Click()

    Text1.ForeColor = vbGreen

    End Sub

    Private Sub Option512_Click()

    Option512.Value = True

    Text1.FontSize = 12

    End Sub

    Private Sub Option616_Click()

    Option616.Value = True

    Text1.FontSize = 16

    End Sub

    展开全文
  • If lngResult Then lngResult = lngResult - 1 ReDim Preserve bytUtf8(lngResult) 'CopyMemory StrPtr(UTF8_Encode), bytUtf8(0&), lngResult UTF8_Encode = StrConv(bytUtf8, vbUnicode) ' For i = 0 To ...
  • ------------------------------------------ |True |True |True | |True |True |True | |True |True |False| |True |True |True | |True |True |True | ---------------------------------------------------------...
  • 前言:下面是针对初学VB同学的刷题总结。 1. 数据类型 1.1 数值类型 数值类型数据可以直接参与运算,代表的数据类型有:Integer(整型)、Long(长整型)、Single(单精度)、Double(双精度)等,囊括了整数、小数、日期...
  • 关于VB中print的用法?

    2021-01-17 15:20:14
    展开全部1、Print方法Print方法可用于窗体、图片框、立即窗口、打印机等对象。用来显示文本字符和表达式的值。表达式:Object.Print,Obiect是对象的636f70793231313335323631343130323136353331333431353365名称,...
  • VB中如何将SQL的数据导出到EXCEL我想在VB中把SQL数据库ZZZ这样一个表里的数据通过一个按钮实现导出到EXCEL,请问要如何实现!越详细越好啊!我刚学这个!谢谢了!最佳答案Rem 导出电子表格的函数,源于李洪根的...
  • 孙刚3级2008-06-03 回答有第3方控件shcokwaveflash(一) 在VB中播放Flash动画怎样才能在VB中加入Flash动画呢?我们只要使用Flash5自带的Shockwave Flash.ocx这个控件就可以了。方法如下:1. 打开VB6.0,新建一个工程...
  • VB常用函数(很全)

    2020-12-20 14:31:12
    1VB常用函数Time返回系统时钟的当前时间。Date返回系统时钟的当前日期。Now返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。Hour(Time)返回指定时间的小时部分(0到23)。Minute(Time)返回...
  • 展开全部Text1.FontItalic = True字体相关设置代码:1、设置具体字号:text1.FontSize = "45" ps:双引号内的字号可以随意更改;或者是每点击一次加大一32313133353236313431303231363533e78988e69d8331333431373864...
  • Counter = 0 '计数器清零 For i = 1 To 16 '循环检查可能存在的16个串口 MSComm1.CommPort = i '依次打开每个串口 MSComm1.PortOpen = True '打开串口 If MSComm1.PortOpen = True Then '如果打开成功,说明该...
  • Vb中如text和label控件是没有垂直居中功能的。但是可以变通就是给文字加空行。下面的是从百度贴吧上面引用来的:但是他并没有说明要将text的mutiline属性设置为true,否则是不行的。'加一个Text1一个Command1...
  • VB50有很多功能强大的控件,其中数据控件与一些绑定控件(如文本框,图片框及 ActiveX控件)的相互协作,能够方便地实现对各种数据库记录、表格乃至电子表格的浏览和编辑操作。下面介绍实例,其中数据控件用于...
  • 1、如何在 VB 连接 AutoCAD。启动 VB ,引用 AutoCAD 类型库。操作步骤:从“工程”菜单选择“引用”选项,启动“引用”对话框。在“引用”对话框,选择 AutoCAD 类型库,然后单击“确定”。定义模块级变量 ...
  • (1)点击“Add Root(添加根)”按钮,则在结点编辑框出现了一个结点(默认名为NodeN),可根据树型的需要,将其他结点添加到这棵树上。如果你是windowsxp用户,进入桌面“开始”>“控制面板”菜单>“添加或删除...
  • 在编写数据库应用程序时,...本文介绍在VB中动态加载ODBC数据源的两种方法。方法之一:修改注册表一般情况下,用户在控制面板配置好ODBC数据源后,Windows系统会将用户配置的信息写在注册表。当应用程序需要用...
  • 建议父表增加2个字段,1个字段命名为物资代码,作主关键字,应具有唯一性;另1字段命名为检索代码。子表增加1个字段命名为物资代码。它们用作父表与子表的关联词。另外父表可将单价字段取消,因为单价可能变化。子表...
  • 本文总结在VB编程调用浏览器访问网页的三种方法: Shell 函数、ShellExecute API 函数和 Automation 对象技术。Shell 函数:使用VB Shell 函数直接执行浏览器可执行文件是调用浏览器访问网页的最简单方法。 如:...
  • 从windows 95开始,微软为我们提供...下面我们就来着手设计一个vb程序的文件搜索器。首先,进入vb中,建立一个新的表单。在表单上建立一个驱动器列表框(drivelist),一个目录列表框(folderlist),一个检查框(subc...
  • 要查找数据库信息,关键是...ODBC数据源VB连接SQL数据库一、配置ODBC数据源1、在控制面板,双击管理工具,然后打开ODBC数据源管理器。2、在“系统DSN”选项卡,单击“添加”按钮,打开“创建新数据源”对话框,...
  • VB中函数表

    2021-07-28 09:09:08
    VB.NET函数表(2009-03-21 14:48:02)转载var$tag='it'; var $tag_code='0f51bb338ff0e9134e095b3b11d3ee5d'; var$r_quote_bligid='4d93071c0100ckub'; var $worldcup='0'; var$worldcupball='0'; 标签:itS...
  • VB简单的程序设计”常见错误汇总一、“VB简单的程序设计”常见错误1.2常见错误和难点分析1.标点符号错误在VB中只允许使用西文标点,任何中文标点符号在程序编译时产生"无效字符"错误,在该行以红色字显示。用户...
  • 2013-06-07 回答vb连接sql模块。直接拿去用吧。 public conn as new adodb.connection public rs as new adodb.recordset public addflag as boolean public function opencn(byval cip as string) as boolean dim ...
  • VB将datagrid的数据导出到Excel(2008-11-20 17:13:40)标签:杂谈这是一个非常实用的例子,它可以将你查询出来的数据导出到Excel表格,具体步骤如下:1、这里使用的Access数据库,所以先建一个数据库,这个数据库...
  • vb文本框属性:VB文本框的常用属性

    千次阅读 2020-12-18 21:17:58
    可以在设计阶段或运行期间在这个区域输入、编辑、修改和显示文本,类似于一个简单的文本编辑器。l-常用属性文本框基本属性:Name、text、:Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、...
  • [摘要:]在实际开发,许多人不喜欢使用TreeView,主要是由于默认的TreeView是“只读”的,不支持添加、删除、编辑、调整节点位置等操作。本文通过一个TVEdit工程说明如何解决这些问题。TreeView是最灵活的...
  • 日常生活的对象,如小孩玩的气球同样具有属性、方法和事件。气球的属性包括可以看到的一些性质,如它的直径和颜色。其它一些属性描述气球的状态(充气的或未充气的)或不可见的性质,如它的寿命。通过...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 74,029
精华内容 29,611
关键字:

vb中true是1