精华内容
下载资源
问答
  • VB生成RTF文档的源代码,用纯VB代码编写,未使用任何的第三方控件,生成RTF速度快,源代码来自国外...里面有很多的.cls编程类,可用在其它的VB开发项目,由RTF文档可扩展成复杂的文本编辑器,运行效果界面如图所示。
  • VB Cls清屏方法

    2010-06-05 12:19:58
    VB Cls清屏方法.rar VB Cls清屏方法.rar
  • vb的PDFPrinter.cls打印模块
  • VB实现的内存操作 模块 用VB做外挂必备。模块形式的 容易移植 也可以当学习之用哦。
  • 内容索引:VB源码,图形处理,3D VB使用API和CLS控件模拟3D空间立方体,在窗口,鼠标拖动立方体会改变它的空间角度,用VB的API和CLS控件来实现,两种效果完全一样。
  • vb中的print方法

    千次阅读 2020-09-16 10:31:14
    VB中我们经常会用到Print方法,它可以在窗体、图形框输出信息。但是我们大多数人可能并不知道Print完整的使用方法。下面就跟着我一起来学习Pirnt真正的用法吧。 Print方法 作用: 在窗体、图形框输出信息,缺省...

    在VB中我们经常会用到Print方法,它可以在窗体、图形框中输出信息。但是我们大多数人可能并不知道Print完整的使用方法。下面就跟着我一起来学习Pirnt真正的用法吧。

    Print方法

    作用:

    在窗体、图形框输出信息,缺省对象为窗体

    语法形式:

    [对象.]print [定位函数][输出表达式列表][分隔符]
    

    定位函数:
    定位函数是缺省参数,可以不填写,当我们需要在指定位置输出信息时,使用定位给函数则可以极大的简化代码。
    Spc(n) :用于在输出时插入n个空格
    Tab(n) :定位于从对象最左端算起的n列

    输出表达式列表:
    需要输出的内容,缺省时输出空行

    分隔符:
    分隔符也是选填参数,填写不同分隔符后,可以得到不同的输出效果。
    “;” :紧凑格式。使用该分隔符时,下一次输出将会紧接着上一次输出。

    “,” :规定列宽14。使用该分隔符时,下一次输出将会在上一次后的14个列宽开始输出。

    缺省时换行。缺省时,下一次输出将会换行输出。

    String()函数

    该函数功能是创建一个字符串。此函数不属于Print方法内的参数,再次作为延伸知识介绍。

    语法:

    String(number
    展开全文
  • Set LoadPicture = VB.LoadPicture(strFileName) Err.Clear End Function 使用方法: Set 控件名.Pictue = LoadPicture(图片网络路径) 上面这个是无缓存加载的 下面这个是下载到...

    Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long

    Private Type TGUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
    End Type

    '加载函数
    Public Function LoadPicture(ByVal strFileName As String) As Picture
    Dim IID As TGUID
    With IID
    .Data1 = &H7BF80980
    .Data2 = &HBF32
    .Data3 = &H101A
    .Data4(0) = &H8B
    .Data4(1) = &HBB
    .Data4(2) = &H0
    .Data4(3) = &HAA
    .Data4(4) = &H0
    .Data4(5) = &H30
    .Data4(6) = &HC
    .Data4(7) = &HAB
    End With

    On Error GoTo LocalErr

    OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
    Exit Function
    LocalErr:
    Set LoadPicture = VB.LoadPicture(strFileName)
    Err.Clear
    End Function

    使用方法:
    Set 控件名.Pictue = LoadPicture(图片网络路径)




    上面这个是无缓存加载的

    下面这个是下载到硬盘后加载的
    去除加载部分 就是下载了

    Private Sub Command1_Click()

                    Dim b()     As Byte
                    Dim strURL     As String
                    strURL = "http://www.baidu.com/img/baidu_sylogo1.gif"

                    b() = Inet2.OpenURL(strURL, icByteArray)

                    Open "c:/csdn.jpg" For Binary Access _
                    Write As #1
                    Put #1, , b()
                    Close #1

                    Image1.Picture = LoadPicture("c:/csdn.jpg")
      End Sub

    展开全文
  • vb.net 常用函数

    2011-05-27 09:35:39
    vb.net 常用函数 基本很全.。。。。。。。。
  • VB中 vbp vbw frm frx log bas 等扩展名大全

    千次阅读 热门讨论 2019-03-31 11:57:32
    我们在VB中保存工程时会自动生成很多文件,其中最常见的文件后缀名有 vbp、vbw 和 frm,各位小伙伴有没有好奇他们都是什么意思呢?今天小编给大家发送福利啦,给大家分别介绍一下这些神奇の扩展名! 一、基本...

    我们在VB中保存工程时会自动生成很多文件,其中最常见的文件后缀名有 vbp、vbw 和 frm,各位小伙伴有没有好奇他们都是什么意思呢?今天小编给大家发送福利啦,给大家分别介绍一下这些神奇的扩展名!

    一、基本扩展名

    首先我们vb中一个工程必须包含的文件类型是vbp vbw 和 frm 

    .vbp 跟踪所有部件的工程文件,是关键的文件,它用来保存当前工程中的工程版本、版权及窗体的信息。

    .vbw 保存了你最后保存工程时候的情况,比如打开了什么窗口,你编辑到了第几行等。以便下次打开能很容易找到上次的感觉.

    .frm 是每个窗体都有的,保存窗体的代码,你可以用记事本打开;

    .frx 每个窗体的二进制数据文件,它含有窗体上控件的属性数据。保存一个工程时他会自动生成.vbp 和.vbw 这两个文件但frx是不一定有的,如果窗体中没有出现使用二进制的属性那么就不会出现frx文件。对含有二进制属性(例如图片或图标)的任何 .frm 文件都是不可编辑的,这些文件都是自动产生的。

    .cls 每个类模块的一个文件

    .bas 每个标准模块的一个文件

    .ocx 一个或多个包含 ActiveX 控件的文件

    .res 单个资源文件,该文件是可选项。

    .SCC MSSCCPRJ.SCC是Visual SourceSafe的配置。用于团体开发,一般没用。 如果你是单机个人工作,可以删。工程文件格式Microsoft Visual Basic 在设计和运行时都利用和创建一些文件。工程或应用程序需要哪些文件取决于它的范围和功能。

    二、Visual Basic 在创建和编译工程时要产生许多文件

    这些文件分类如下:设计时文件、杂项开发文件和运行时文件

    (一)

     1.设计时文件

    设计时文件是工程的建造块:例如基本模块 (.bas) 和窗体模块 (.frm)。

     2.杂项文件

    杂项文件是由 Visual Basic 开发环境中的各种不同的进程和函数产生的:例如打包和展开向导从属文件 (.dep)。

    3.运行时文件

    编译应用程序时,所有必须的设计时文件都被包括在运行时可执行文件中.

    (二)

    1-设计时和杂项文件的常见扩展名描述:

    .bas 基本模块

    .cls 类模块

    .ctl 用户控件文件

    .ctx 用户控件的二进制文件

    .dca 活动的设计器的高速缓存

    .ddf 打包和展开向导 CAB 信息文件

    .dep 打包和展开向导从属文件

    .dob ActiveX 文档窗体文件

    .dox ActiveX 文档二进制窗体文件

    .dsr 活动的设计器文件

    .dsx 活动的设计器的二进制文件

    .dws 部署向导脚本文件

    .frm 窗体文件

    .frx 二进制窗体文件

    .log 加载错误的日志文件

    .oca 控件类型库缓存文件

    .pag 属性页文件

    .pgx 二进制属性页文件

    .res 资源文件

    .tlb 远程自动化类型库文件

    .vbg Visual Basic 组工程文件

    .vbl 控件许可文件

    .vbp Visual Basic 工程文件

    .vbr 远程自动化注册文件

    .vbw Visual Basic 工程工作空间文件

    .vbz 向导发射文件

    .wct WebClass HTML 模板

    2-运行时文件常见扩展名描述

    .dll 运行中的 ActiveX 部件

    .exe 可执行文件或 ActiveX 部件

    .ocx ActiveX 控件

    .vbd ActiveX 文档状态文件

    .wct WebClass HTML模板

    扩展名还有很多很多,看到这里你是不是跟小编一样开始头疼了呢? 其实我们只需要了解一些基本就可以,也正应了那句话,记是永远记不住的,请慢慢在实践中体会吧!

    展开全文
  • VB生成PDF文档的例子,使用VB专用的PDF控件来实现,PDFPrinter.cls为控件代码,不使用其它额外的控件创建一个PDF文件,可自定义PDF字体,将字体存入FONT目录,然后在代码设定。另外本程序生成的PDF文档是标准格式...
  • VB和c#语法对照

    2014-05-20 17:47:43
    VB和c#语法对照
  • VB 开发的 ComboBox 窗体下拉框菜单选择源码,与普通的ComboBox其实差别并不大,个性之处就在于在下拉框的选项,增加了一个图形标识,也就是加了一个图标,这样看上去似乎更形象、美观了一点,虽然就加了这么一个...
  • 点击此处下载Cls_Ini.cls 主要源程序: VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone ...

    点击此处下载Cls_Ini.cls

    主要源程序:

    VERSION 1.0 CLASS
    BEGIN
      MultiUse = -1  'True
      Persistable = 0  'NotPersistable
      DataBindingBehavior = 0  'vbNone
      DataSourceBehavior  = 0  'vbNone
      MTSTransactionMode  = 0  'NotAnMTSObject
    END
    Attribute VB_Name = "Cls_Ini"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = True
    Attribute VB_PredeclaredId = False
    Attribute VB_Exposed = False
    'EXAMPLE
    'ini.Path = "LampKensaki.ini"
    'ini.Read
    'strT10ComPortNo = ini.GetValue("T-10_COM_NO", "T-10_Com_No")    'T-10_Com_No=6
    'intT10WaitTime = ini.GetValue("T-10_WAIT_TIME", "T10WaitTime")  'T10WaitTime=3000
    'intShoudoSokuteiTimming = ini.GetValue("SHOUDO_SOKUTEI_TIMMING", "ShoudoSokuteiTimming")    'ShoudoSokuteiTimming=15
    'Ad_Ch = ini.GetValue("AD_CH", "Ad_Ch")
    
    
    'all the functions and variables in this file are used to operate(read/write) the .ini file
    Option Explicit
    Option Compare Binary
    
    Private Const SP As String = "["
    Private Const EP As String = "]"
    Private Const CP As String = "="
    Private Const CB As String = ";"
    
    Private Type INISection
        Name    As String
        Keys()  As String
        KeysCnt As Long
    End Type
    
    
    
    Private INI_Path    As String
    Private INI_Mode    As Boolean
    
    Private INI_SectCnt As Long
    
    Private INI_Sect()  As INISection
    Private INI_File()  As String
    
    
    
    Private Function CheckSect(ByVal Sect As String) As Boolean
    If Left$(Sect, 1) = SP And Right$(Sect, 1) = EP Then
        CheckSect = 1
    End If
    End Function
    
    Private Function CheckKey(ByVal Key As String) As Boolean
    If Left$(Key, 1) <> CB Then
        If InStr(Key, CP) Then
            CheckKey = 1
        End If
    End If
    End Function
    
    Private Function GetSectName(ByVal Sect As String) As String
    GetSectName = Mid$(Sect, 2, Len(Sect) - 2)
    End Function
    
    Private Function GetKeyName(ByVal Key As String) As String
    Dim i As Long
    
    i = InStr(Key, CP)
    If i > 0 Then
        GetKeyName = Left$(Key, i - 1)
    End If
    End Function
    
    Private Function GetValueName(ByVal Key As String) As String
    Dim i As Long
    
    i = InStr(Key, CP)
    If i > 0 Then
        GetValueName = Right$(Key, Len(Key) - i)
    End If
    End Function
    
    Private Function ChangeSect(ByVal Sect As String) As String
    ChangeSect = SP & Sect & EP
    End Function
    
    Private Function ChangeKey(ByVal Key As String, ByVal Value As String) As String
    ChangeKey = Key & CP & Value
    End Function
    
    Private Sub StrectToAry()
    Dim File() As String
    Dim i As Long, t As Long, w As Long
    Dim s As Long
    Const Dumy As String = SP & "Dummy" & EP
    
    On Error Resume Next
    
    If INI_SectCnt <= 0 Then
        ReDim INI_File(0) As String
        Exit Sub
    End If
    
    If INI_File(0) = "" Then
        If Err.Number Then
            ReDim INI_File(0) As String
            INI_File(0) = Dumy
    '       Err.Clear
        End If
    End If
    
    Do
        If s >= INI_SectCnt Then Exit Do
        If CheckSect(INI_File(w)) Or w > UBound(INI_File) Then
            ReDim Preserve File(i) As String
            If s > 0 Then
                If File(i - 1) <> "" Then
                    File(i) = ""
                    i = i + 1
                    ReDim Preserve File(i) As String
                End If
            End If
            File(i) = INI_Sect(s).Name
            For t = 0 To INI_Sect(s).KeysCnt - 1
                i = i + 1
                ReDim Preserve File(i) As String
                File(i) = INI_Sect(s).Keys(t)
            Next
            s = s + 1
            i = i + 1
        ElseIf Not CheckKey(INI_File(w)) Then
            ReDim Preserve File(i) As String
            File(i) = INI_File(w)
            i = i + 1
        End If
        w = w + 1
    Loop
    
    ReDim INI_File(i - 1) As String
    INI_File = File
    
    Err.Clear
    End Sub
    
    
    
    Public Property Get Path() As String
    Path = INI_Path
    End Property
    
    Public Property Let Path(ByVal nv As String)
    INI_Path = nv
    End Property
    
    Public Property Get Mode() As Boolean
    Mode = INI_Mode
    End Property
    
    Public Property Let Mode(ByVal nv As Boolean)
    INI_Mode = nv
    End Property
    
    Public Property Get SectCount() As Long
    SectCount = INI_SectCnt
    End Property
    
    Public Property Get KeyCount(Optional ByVal SectionNo As Long = -1, _
                                 Optional ByVal SectionName As String) As Long
    Dim i As Long
    
    If INI_SectCnt <= SectionNo Then Exit Property
    If INI_SectCnt < 1 Then Exit Property
    
    If SectionNo >= 0 Then
        KeyCount = INI_Sect(SectionNo).KeysCnt
    ElseIf SectionName <> "" Then
        For i = 0 To (INI_SectCnt - 1)
            If GetSectName(INI_Sect(i).Name) = SectionName Then
                KeyCount = INI_Sect(i).KeysCnt
                Exit For
            End If
        Next
    Else
        For i = 0 To (INI_SectCnt - 1)
            KeyCount = KeyCount + INI_Sect(i).KeysCnt
        Next
    End If
    
    End Property
    
    Public Property Get GetSect(ByVal SectionNo As Long) As String
    
    If SectionNo < 0 Then Exit Property
    If INI_SectCnt > SectionNo Then
        GetSect = GetSectName(INI_Sect(SectionNo).Name)
    End If
    
    End Property
    
    Public Property Get GetKey(ByVal SectionName As String, ByVal KeyNo As Long) As String
    Dim i As Long
    
    If INI_SectCnt < 1 Then Exit Property
    If KeyNo < 0 Then Exit Property
    
    For i = 0 To (INI_SectCnt - 1)
        With INI_Sect(i)
            If GetSectName(.Name) = SectionName Then
                If .KeysCnt > KeyNo Then
                    GetKey = GetKeyName(.Keys(KeyNo))
                End If
                Exit For
            End If
        End With
    Next
    
    End Property
    
    Public Property Get GetValue(ByVal SectionName As String, ByVal KeyName As String, _
                                 Optional ByVal Default As String = "") As String
    Dim i As Long, t As Long
    
    GetValue = Default
    
    If INI_SectCnt < 1 Then
        Exit Property
    End If
    
    For i = 0 To (INI_SectCnt - 1)
        With INI_Sect(i)
            If GetSectName(.Name) = SectionName Then
                For t = 0 To (.KeysCnt - 1)
                    If GetKeyName(.Keys(t)) = KeyName Then
                        GetValue = GetValueName(.Keys(t))
                        Exit Property
                    End If
                Next
            End If
        End With
    Next
    
    End Property
    
    Public Function SetValue(ByVal SectionName As String, ByVal KeyName As String, _
                                                          ByVal Value As String) As Boolean
    Dim File() As String
    Dim i As Long, t As Long, w As Long, z As Long
    
    
    If INI_Path = "" Then Exit Function
    
    If INI_SectCnt > 0 Then
        For i = 0 To (INI_SectCnt - 1)
            If GetSectName(INI_Sect(i).Name) = SectionName Then
                If INI_Sect(i).KeysCnt > 0 Then
                    For t = 0 To (INI_Sect(i).KeysCnt - 1)
                        If GetKeyName(INI_Sect(i).Keys(t)) = KeyName Then
                            INI_Sect(i).Keys(t) = ChangeKey(KeyName, Value)
                            Exit For
                        End If
                    Next
                    If INI_Sect(i).KeysCnt < 1 Or t > (INI_Sect(i).KeysCnt - 1) Then
                        With INI_Sect(i)
                            ReDim Preserve .Keys(t) As String
                            .Keys(t) = ChangeKey(KeyName, Value)
                            .KeysCnt = .KeysCnt + 1
                        End With
                    End If
                    SetValue = 1
                    Exit For
                End If
            End If
        Next
    End If
    
    If INI_SectCnt < 1 Or i > (INI_SectCnt - 1) Then
        If INI_SectCnt < 1 Then i = 0
        ReDim Preserve INI_Sect(i) As INISection
        With INI_Sect(i)
            ReDim .Keys(0) As String
            .Name = ChangeSect(SectionName)
            .Keys(0) = ChangeKey(KeyName, Value)
            .KeysCnt = 1
        End With
        INI_SectCnt = INI_SectCnt + 1
        SetValue = 1
    End If
    
    
    If INI_Mode Then
        SetValue = Save
    End If
    
    End Function
    
    Public Function Delete(ByVal Section As String, Optional ByVal Key As String) As Boolean
    Dim iniSect() As INISection
    Dim iniKey()  As String
    Dim i As Long, t As Long, w As Long
    
    If INI_SectCnt <= 0 Then
        Exit Function
    End If
    
    If Key = "" Then
        For t = 0 To INI_SectCnt - 1
            If GetSectName(INI_Sect(t).Name) <> Section Then
                ReDim Preserve iniSect(w) As INISection
                iniSect(w) = INI_Sect(t)
                w = w + 1
            End If
        Next
        If w < t Then
            ReDim INI_Sect(w - 1) As INISection
            INI_Sect = iniSect
            INI_SectCnt = w
            Delete = 1
        End If
    Else
        For i = 0 To INI_SectCnt - 1
            If GetSectName(INI_Sect(i).Name) = Section Then
                If INI_Sect(i).KeysCnt <= 0 Then
                    Exit For
                End If
                For t = 0 To INI_Sect(i).KeysCnt - 1
                    If GetKeyName(INI_Sect(i).Keys(t)) <> Key Then
                        ReDim Preserve iniKey(t) As String
                        iniKey(w) = INI_Sect(i).Keys(t)
                        w = w + 1
                    End If
                Next
                If w < t Then
                    ReDim INI_Sect(i).Keys(t - 1) As String
                    INI_Sect(i).Keys = iniKey
                    INI_Sect(i).KeysCnt = w
                    Delete = 1
                End If
            End If
        Next
    End If
    
    If INI_Mode Then
        Delete = Save
    End If
    End Function
    
    Public Function Read() As Boolean
    Dim rl   As String
    Dim NO   As Integer
    Dim i As Long, t As Long, w As Long
    
    On Error Resume Next
    
    NO = FreeFile()
    Open INI_Path For Input As #NO
        If Err.Number Or LOF(NO) = 0 Then
            Close #NO
            Exit Function
        End If
        Do While Not EOF(NO)
            ReDim Preserve INI_File(i) As String
            Line Input #NO, INI_File(i)
            i = i + 1
        Loop
    Close #NO
    
    INI_SectCnt = -1
    For t = LBound(INI_File) To UBound(INI_File)
        If CheckSect(INI_File(t)) Then
            w = 0
            INI_SectCnt = INI_SectCnt + 1
            ReDim Preserve INI_Sect(INI_SectCnt) As INISection
            INI_Sect(INI_SectCnt).Name = INI_File(t)
        ElseIf CheckKey(INI_File(t)) Then
            ReDim Preserve INI_Sect(INI_SectCnt).Keys(w) As String
            INI_Sect(INI_SectCnt).Keys(w) = INI_File(t)
            INI_Sect(INI_SectCnt).KeysCnt = INI_Sect(INI_SectCnt).KeysCnt + 1
            w = w + 1
        End If
    Next
    
    INI_SectCnt = INI_SectCnt + 1
    Read = 1
    End Function
    
    Public Function Save() As Boolean
    Dim NO As Integer
    Dim i  As Long
    
    On Error Resume Next
    
    Call StrectToAry
    
    NO = FreeFile()
    Open INI_Path For Output As #NO
        If Err.Number Then
            Close #NO
            Exit Function
        End If
        For i = LBound(INI_File) To UBound(INI_File)
            If Err.Number Then
                Exit For
            End If
            Print #NO, INI_File(i)
        Next
    Close #NO
    
    Save = 1
    End Function
    
    Public Sub Release()
    
    INI_Path = ""
    INI_Mode = 0
    
    INI_SectCnt = 0
    
    Erase INI_File
    Erase INI_Sect
    
    End Sub
    

    【更多阅读】

    1. [原]WMICodeCreator:C#产生WMI代码的工具
    2. [原]Cls_Ini.cls:VB写的操作ini配置文件的类
    3. [原]GetIcons:C#提取应用程序的图标资源
    4. [原]Baidu:C#利用百度来搜索网页、图片、视频等等
    5. [原]ManageStartUpApps:C#操作注册表来读取和修改开机启动项
    6. [原]Baidu:C#利用百度来搜索网页、图片、视频等等
    7. [译]用C#检测你的打印机是否连接
    8. [原]WMICodeCreator:C#产生WMI代码的工具
    9. [原]使用Excel的VBA来读取和修改bmp位图像素数据
    10. [原]DownloadWebImages:下载某页面上的所有图片

    展开全文
  • cls含义及使用方法

    千次阅读 2021-01-19 20:34:41
    python中cls代表的是类的本身,相对应的self则是类的一个实例对象。 二、cls用法 cls可以在静态方法使用,并通过cls()方法来实例化一个对象。 class Person(object): def __init__(self, name, age): self.name ...
  • VB6.0实现演示父窗体 子窗体的显示与隐藏实例,实现工具栏样式的窗口,附在主窗体旁边。...编写过程,使用了VB类库:MHookMe.bas、IHookSink.cls,FPairMain.frm为主窗口程序,FPairSub.frm为子窗口程序。
  • vb cls_PipeAccess.cls

    2011-03-09 10:29:52
    Option ExplicitPrivate Declare Function CreatePipe _Lib "kernel32" (phReadPipe As Long, _phWritePipe As Long, _lpPipeAttributes As SECURITY_ATTRIBUTES, _ByVal nSize As Long) As ...
  • Option Explicit Global Const mm = 567 Global Const cm = 567 Global Const NM_PP_Ofs = 0 '36 Global Const Gray = &HC0C0C0 Global Scala As Single Global Const ANTEPRIMA = 0 Global Const STAMPANTE = 1 ...
  • 用常规的方法创建出的字体有一定的局限性,后来在网上找到了这个CLS类文件,现在发给大家,使用时候只要根据StdFont创建VB字体就行,支持中文字符集,把宽度设置成0就是由系统自动决定宽度……一直都在用。
  • .NET的CTS、CLS、CLR

    2019-02-27 17:15:22
    .NET的CTS、CLS、CLR 一、解释1 1、CLR(Common Language Runtime) :公共语言运行库 CLR 是CTS(Common Type System:通用类型系统)的实现, 即是说:CLR是应用程序的执行引擎和功能齐全的类库, 该类库严格...
  • VB在窗体上显示坐标系,  Private Sub Command1_Click()  Cls '清除窗体  Form1.ForeColor = RGB(255, 0, 0) '设置颜色  Form1.FontBold = True '加粗  Line (0, 0)-(3000, 0) '水平方向画直线  Line (0, 0)-...
  • For...Next的应用,九九乘法表(VB6.0源代码编写)Cls
  • .NET

    千次阅读 多人点赞 2019-07-17 11:15:41
    上文的CLS是CTS(Common Type System 公共类型系统)这个体系的子集。 一个编程语言,如果它能够支持CTS,那么我们就称它为面向.NET平台的语言。 官方CTS介绍 微软已经将CTS和.NET的一些其它组件,提交给ECMA...
  • VB6.exe可以将cls模块、普通模块、窗体代码frm先生存汇编代码文件,然后再继续编译,但我们看不到这些代码,是因为编译器C2.exe隐藏或删除了,为了在VB6的程序里可以嵌入汇编代码或C代码,就要让C2.exe将这些汇编...
  • VB中function的应用

    千次阅读 2014-05-05 12:01:38
    函数过程的调用: 1, call 语句。 Call (过程名) [实参表] 2, 直接调用。(过程名) [ 实参表] 3, 无参数直接调用。 举例  Function f2  F2=”Flollow me.” ...(1)有谁能清楚地介绍vb function过程
  • VB实现List集合

    2021-07-25 22:50:17
    Option Explicit '***********************List集合 CArrayList.cls***************************** Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef psa() As Any) As Long Private mArray() ...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
     通用语言规范(Common Language Specification,CLS):.NET系统包括如下语言:C#、C++、VB、J#,他们都遵守通用语言规范。任何遵守通用语言规范的语言源程序,都可编译为相同的中间语言代码,由CLR负责执行。只要...
  • VB 加密解密模块

    2018-08-29 00:49:33
    VB6 加密解密模块: 加密(字符串,密码)解密(字符串,密码) 加密和解密的密码要一至。
  • 本周接到一个任务,用VB6.0发送HTTP请求,并处理返回的数据。 发送的是json格式字符串,接收到服务器返回的json字符串并处理。 VB6太老了,怎样处理json,是否...2. 在工程引用VBJSON 右击工程名称-》添加-》模块
  • clsFTP.cls

    2014-02-20 15:46:30
    强于vb自带的INET控件,自带说明和例子,方便易用。
  • 在描述以上三个概念之前要先知道IL:IL(intermediate language)) 中间语言,是经过编译之后可以执行的二进制代码,实现了.net平台的互联互通,后缀名为.exe或.dll。... 在Vb.Net对整形的定义为integer,在c#对...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,032
精华内容 2,412
关键字:

vb中的cls