精华内容
下载资源
问答
  • vb中DoEvents什么意思

    千次阅读 2017-01-13 11:11:26
    Private Sub Command2_Click() Picture1.AutoSize = True Do xx = Rnd * Picture2.Width yy = Rnd * Picture2.Height Picture2.PaintPicture Picture1.Picture, xx, yy,Picture1.Width,Picture1.Height

    Private Sub Command2_Click()   Picture1.AutoSize = True   Do   xx = Rnd * Picture2.Width   yy = Rnd * Picture2.Height   Picture2.PaintPicture Picture1.Picture, xx, yy,Picture1.Width,Picture1.Height   DoEven...

    把控制权交给操作系统,以响应窗口重画、最大化、最小化等要求,避免出现应用程序不响应操作系统请求而被操作系统误以为死机了。
    举个例子:在窗口中放一个textbox,然后写程序,循环从1到10万,然后循环体里面就是把这个数写到textbox里面,如果没有DoEvents,程序运行的时候就是死机一样,然后直到最后窗口显示10万,中间数字什么也看不见;
      如果在每次写了textbox以后,都来一下DoEvents,窗口就会重画,运行的时候就能看见textbox里面的数一个一个的长上去。

    展开全文
  • 1是True 0false,如下图 ![图片说明](https://img-ask.csdn.net/upload/201806/15/1529034489_977589.png) 我想要用checkbox的样式去显示,如下图 ![图片说明]...
  • 太冗余了....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

    展开全文
  • 展开全部Text1.FontItalic = True字体相关设置代码:1、设置具体字号:text1.FontSize = "45" ps:双引号内的字号可以随意更改;或者每点击一次加大一32313133353236313431303231363533e78988e69d8331333431373864...

    展开全部

    Text1.FontItalic = True

    字体相关设置代码:

    1、设置具体字号:

    text1.FontSize = "45" ps:双引号内的字号可以随意更改;或者是每点击一次加大一32313133353236313431303231363533e78988e69d8331333431373864次 text1.fontsize= text1.fontsize +1

    2、设置具体的字体

    text1.FontName = "幼圆" ps:双引号里的字体可以改成其他的

    3、设置具体的颜色

    text1.ForeColor = vbRed ps:后面的red(红色)可以改成其他颜色;或者 Text1.ForeColor = &HFFFFC0 ps:=号后面是颜色的代码,在ForeColor

    4、设置字型为粗体

    text1.FontBold =True

    扩展资料

    一、字体放大示例:

    Dim a%

    Private Sub Command1_Click() '加大键

    a = a + 10

    If a >= 70 Then a = 70: Exit Sub '加大到70就停止

    Label1.Font.Size = a '设定Label1的字体大小

    End Sub

    二、字体缩小示例:

    Private Sub Command2_Click() '缩小键

    a = a - 10

    If a <= 2 Then a = 2: Exit Sub ' 缩小到2就停止

    Label1.Font.Size = a '设定Label1的字体大小

    End Sub

    展开全文
  • VB中的数据类型

    2019-10-05 03:09:12
    1.Boolean 布尔型,这种类型,只有真、假(即true or false)两个值,它占用两个字节。 2.Byte 字节型 他占用一个字节,他的范围0—255 3.Integer 整型 它占用两个字节,通常用%来表示 ,例a%;它占用2个字节...
     

     

    1.Boolean 布尔型,这种类型,只有真、假(即true or false)两个值,它占用两个字节。

    2.Byte 字节型   他占用一个字节,他的范围是0—255

    3.Integer 整型  它占用两个字节,通常用%来表示 ,例a%;它占用2个字节(C语言中为4个字节),它的范围是0----32768/32767

    4.Long  长整型 它占用4个字节,它的简写符号是&,它的范围是-2147483648到2147483647。

    对于整型和长整型,我们通常会选用长整型,尽管长整型比较大,但是相对于整型会比较快,因为CPU一般是32位的,长整型可以一次把数据存储到寄存器里或CPU里面,还有长整型的兼容性比较好。

    5.Single  单精度浮点   4个字节。范围比较大,但是精度很小,在科学计算时,不用改精度 ,它的符号是!

    6.double  双精度浮点   8个字节,符号式#,它的精度远远大于单精度浮点。

    7.String  字符串  a.可变长字符串,用于读取文件,文本查找等。

                             B.定长字符长

    8.Date 日期   形式是  #…………#,如20011年11月11日可表示为  #2011/11/11#

    9. Currency  @表示符

    10. User Defined

    11.Variant  可变类型 在VB下,变量可以不声明,不同于以上类型,赋值后,可以对他进行其他类型的赋值,例如原先是一个字符串,后来再给他赋为日期。Variant类型的格式:

    类型变量(如整型)

    相应数据、地址

                  Variant的缺点是占用内存较大,速度慢;方便之处是使用灵活

      VB中的数据类型并不是孤立的,他们之间可以用转换函数来相互转换。

    转载于:https://www.cnblogs.com/liu765023051/archive/2011/08/12/2813680.html

    展开全文
  • 前提图像要足够大的看不到,然后才要移动看到哦,呵呵首先,建两个PicBox控键,第一个命名为PicBack(下文称后图),以其作为容器,再在里面建立第二个PicFront(下文称前图),前图的AutoSize的属性设置为true,...
  • 展开全部VBText控件使字体加粗和倾e69da5e6ba9062616964757a686964616f31333365656537斜的代码:加粗 Label1.FontBold = True斜体 Label1.FontItalic = true拓展资料:TextBox控件:a. 控制Textbox输入格式,我...
  • 由于VB中的记录集对象与所使用的数据库格式及类型相互独立的,所以在非Access数据库中也可以使用数据库存取对象变量的方法。因而 对FoxPro等外来数据库而言,使用数据库存取对象变量的方法同样也一种最佳的选择...
  • VB是一门古老的语言,可是码农却不得不为蛋疼的公司维护它 1.在做DropDownList级联时发现DropDownList无法自动回传 解决方法: 1.DropDownListAutoPostBack是否设为True 2.在页面定义了一个ID为“submit”...
  • VB中Unload、END、Hide的区别

    千次阅读 热门讨论 2017-07-31 21:16:35
    1、Unload 语句 ...在其中任一过程设置 cancel 参数为 True 可防止窗体被卸载。若为 MDIForm 对象,先发生 MDIForm 对象的 Query_Unload 事件过程,接着各 MDI 子窗体 的 Query_Unload 事件过程和 Form_
  • VB 6.0 在DataGrid表格实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了...
  • 1.Boolean在vb中的意义: Boolean一种数据类型(布尔值)包括两个值:True和False 当命题为真时返回true,命题为假时返回false 2. vb中的trim什么意思 trim()去除字符串头或尾部的空格,但不包含中间的空格。如...
  • vb如何实现换行换行符怎么使用?有两种方法:1。编写代码实现换行:label1.caption=“第一行内容”&vbcrlf&amp;“第二行内容”“vbcrlf实现换行的回车...在VB中,当代码行太长时,语句可能会中断。规则...
  • vb.net怎么把datagrdview的数据导出成excel文档 用的ACCESS数据库 一下我写的代码,发生了一些问题,请大神们看看,帮忙修改一下。 这导出按钮的单击事件 ''要先添加引用才能使用下列语句Microsoft.Office...
  • APP.path在使用过程,总不是很顺畅。...xlApp.Visible = True Set xlsheet = xlBook.Sheets("sheet1") Text1.Text = xlsheet.Range("A1").Value xlBook.Close xlApp.Quit End Sub ``` ```
  • Wsheet.PrintOutEx(1, pagecount, 1, False, xls.ActivePrinter, True, True, printFile, True) 其中 xls.ActivePrinter 使用的默认打印机。那么结合使用 System.Drawing.Printing.PrinterSetting...
  • .Rows(1).Font.Bold = True .Cells.Select .Columns.AutoFit .Cells(1, 1).Select .Application.Visible = True End With xlBook.SaveAs (g_CommonDialog.FileName) xlApp.Application.Visible = False xlApp....
  • 本人使用的Excel2000,须在项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library 1 打开Excel dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿 myexcel.Workbooks.add()...
  • vb.net访问Excel(来自vb.net书)

    千次阅读 2006-08-15 17:23:00
    本人使用的Excel2000,须在项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library 1 打开Excel dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿 myexcel.Workbooks.add()...
  • 问题:因为设置IsStaggered = True,所以AxisLabel的显示效果分两层的,如何设置属性才能放到一样水平? 希望大家帮忙指教,万分感谢!! 本人QQ:865207156 代码: Chart1.ChartAreas(0).AxisX.LabelStyle....
  • 在excel表格搜索B列内容为“32KP”对应的E列的内容比如B17为“32KP”则读取E17的内容到text1中。 我这样读取表格的 Dim ExcelApp, oBook, a, c Set ExcelApp = CreateObject("Excel.Application") Set oBook...
  • VB.NETUPDATE语句执行后没有报错,数据库也没有更新,但是把语句放在Textbox提出来,在SQL Server直接执行成功的 与数据库可以连接的,在其他窗体也可以执行UPDATE语句、INSERT语句,SELECT语句 ``` ...
  • VB- vbCrlf

    2017-06-18 15:55:40
    VB- vbCrlfvbCrLfVisual Basic的一个字符串常数,即“Chr(13) & Chr(10)”(回车符与换行符连接在一起),**换行**的意思。 例如: Text1.Text = “第一行” & vbCrLf & “第二行” 注意:要在TextBox控件...
  • 在 Visual Studio 2008 SP1 (包含)之前,如果你编译下面的代码,会得到 BC30668 错误,但同样的代码,VC# 一开始就没有这个问题。...Obsolete("This procedure has been obsoleted", True)> _ Publ...
  • 1、Unload 语句 从内存卸载窗体或控件。 在卸载窗体前,会发生 Query_Unload 事件过程,然后 Form_Unload 事件过程。在其中任一过程设置 cancel 参数为 True 可防止窗体被卸载。若为 MDIForm 对象,先发生 ...

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 201
精华内容 80
关键字:

vb中true是1