精华内容
下载资源
问答
  • VB.net使用CefSharp笔记

    千次阅读 2019-11-14 00:43:56
    js_task.Result.Result Else Return Nothing End If End Function End Class 使用AngleSharp解析HTML Imports AngleSharp Public Class SingleBrowser Private parser As ...

    注意事项

    CefSharp目前的稳定版本只支持.NET 4.5.2环境,所以在创建项目的时候一定要选准.Net的版本号
    在这里插入图片描述

    获取js执行返回值

    Imports CefSharp
    Imports CefSharp.WinForms
    Public Class Form1
    	'定义cef浏览器控件的全局变量,方便后面调用,注意WithEvents
        Private WithEvents browser As ChromiumWebBrowser
        Public Sub New()
    
            ' 此调用是设计器所必需的。
            InitializeComponent()
    
            ' 设置cef控件菜单语言为中文
            Dim settings As New CefSettings() With {
            .Locale = "zh-CN"
            }
            CefSharp.Cef.Initialize(settings)
    		'初始化cef浏览器控件样式和默认打开的地址,并将其加入到Panel控件中
            browser = New ChromiumWebBrowser("about:blank") With {
                .Dock = DockStyle.Fill
            }
            Panel2.Controls.Add(browser)
            '手动跳转新的地址
            browser.Load("http://mail.qq.com")
    
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    		'从textbox中获取内容当做url扔给cef访问
            Dim url = TextBox1.Text
            browser.Load(url)
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        	'调用cef执行js代码并返回结果,这里使用js原生函数querySelector通过css选择器获取dom的值
            Dim js As String = "document.querySelector('.login_pictures_txt').innerText"
            
            Dim html_task As Task(Of JavascriptResponse) = browser.EvaluateScriptAsync(js, timeout:=Nothing)
            
            '阻塞等待task任务结束
            html_task.Wait()
    
            RichTextBox1.Text = html_task.Result.Result
        End Sub
    End Class
    
    

    获取异步加载页面的HTML代码

    比较简单粗暴有效的方法:使用Timer循环在页面中执行js通过css选择器去找加载完成后才会出现的dom元素个数,大于0则可认定为页面加载完成了.

    Imports CefSharp
    Imports CefSharp.WinForms
    
    Public Class SingleBrowser    
        Private browser As ChromiumWebBrowser
        Private WithEvents get_html_tm As New Timer() With {.Interval = 200}    '获取页面HTML的计时器
        Public Sub New()
    
            ' 此调用是设计器所必需的。
            InitializeComponent()
    
            ' 在 InitializeComponent() 调用之后添加任何初始化。
            Dim settings As New CefSettings With {
                .Locale = "zh-CN",
                .CachePath = Application.StartupPath & "\Cache"
            }
            CefSharp.Cef.Initialize(settings)
            browser = New ChromiumWebBrowser("about:blank") With {
                    .Dock = DockStyle.Fill
                }
            Panel2.Controls.Add(browser)
    
        End Sub
    
        Private Sub startBtn_Click(sender As Object, e As EventArgs) Handles startBtn.Click
            '处理URL路由
            Dim url As String = url_textbox.Text
    		'加载文本框中的地址,比如淘宝的搜索结果页面
            browser.Load(url)
            '开始计时器工作
            get_html_tm.Start()
        End Sub
        
        ''' <summary>
        ''' 判断淘宝搜索结果页面是否加载完毕
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Async Sub get_html_tick(sender As Object, e As EventArgs) Handles get_html_tm.Tick
            Dim js As String = "document.querySelectorAll('.pic-link').length"
            Dim result As Integer = doJs(js)
            If result > 0 Then
                get_html_tm.Stop()
                '加载完毕,开始获取HTML内容
                Dim html As String = Await browser.GetSourceAsync()
                Console.WriteLine("----加载HTML成功")
                Console.Write(html)
            End If
        End Sub
    
        ''' <summary>
        ''' 在浏览器中执行js
        ''' </summary>
        ''' <param name="js"></param>
        ''' <returns>返回js执行结果,object对象或者nothing</returns>
        Private Function doJs(ByVal js As String)
            If Not browser.IsLoading Then
                Dim js_task As Task(Of JavascriptResponse) = browser.EvaluateScriptAsync(js)
                js_task.Wait()
                Return js_task.Result.Result
            Else
                Return Nothing
            End If
        End Function
     
    
    End Class
    

    使用AngleSharp解析HTML

    Imports AngleSharp
    
    Public Class SingleBrowser
        Private parser As New AngleSharp.Parser.Html.HtmlParser()   'HTML解析器
        Private Sub dealHtml(Byval html as String)
    		'解析HTML为AngleSharp的IHtmlDocument对象
        	Dim doc = parser.Parse(html)
        	'通过css选择器筛选出符合条件的dom元素集合
        	Dim link_list = doc.QuerySelectorAll(".pic-link")
        	'遍历dom集合进行处理
        	For Each link In link_list
        		'获取dom的文本内容
        		Console.WriteLine(link.TextContent())
        		'获取dom的属性href
        		Console.WriteLine(link.GetAttribute("href"))
        	Next
        End Sub
    

    使用offscreen在后台隐式获取指定页面的HTML

    注意:需要另外从NuGet上安装CefSharp.Offscreen的包包

    Imports CefSharp
    Imports CefSharp.OffScreen
    Public Class offscreen
        Private browser As ChromiumWebBrowser
    
        Public Sub New()
    
            ' 此调用是设计器所必需的。
            InitializeComponent()
    
            ' 允许多线程间修改主UI线程的控件内容
            CheckForIllegalCrossThreadCalls = False
            Dim settings As New CefSettings() With {
            .Locale = "zh-CN"
            }
            CefSharp.Cef.Initialize(settings)
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Try
                browser = New ChromiumWebBrowser("mail.qq.com")
                AddHandler browser.LoadingStateChanged, AddressOf doneLoad
    
            Catch ex As Exception
                TextBox1.Text = ex.Message
            End Try
        End Sub
    
        ''' <summary>
        ''' 处理browser对象加载状态发生改变时的事件
        ''' 注意括号中的参数必须与browser.LoadingStateChanged签名一致
        ''' 所谓签名一致,就是括号里面参数的数量、类型一致(不知道这样理解对不对)    ''' 
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Async Sub doneLoad(ByVal sender As Object, ByVal e As LoadingStateChangedEventArgs)
            '如果browser不是处于loading状态
            If Not e.IsLoading Then
                '移除绑定的当前事件(即当前事件只触发一次)
                RemoveHandler browser.LoadingStateChanged, AddressOf doneLoad
                '手动设置的等待1秒,让browser渲染完毕
                Threading.Thread.Sleep(1000)
                '阻塞等待(异步)获取browser中的源代码
                Dim html As String = Await browser.GetSourceAsync()
                TextBox1.Text = html
            End If
        End Sub
    End Class
    
    展开全文
  • (1)为缺省的result类型,一般情况下我们在struts.xml会这么写: /main.jsp 以上写法使用了两个默认,其完整的写法为: # # /maini.jsp # 第一个默认:type="dispatcher";第二个默认:设置的为...
    一、dispatcher 
    

    (1)为缺省的result类型,一般情况下我们在struts.xml会这么写:
    <result name="success">/main.jsp</result>

    以上写法使用了两个默认,其完整的写法为:
    # <result name="success" type="dispatcher">  
    #          <param name="location">/maini.jsp</param>  
    # </result>

    第一个默认:type="dispatcher";第二个默认:设置的为location参数,location只能是页面,不能是另一个action(可用type="chain"解决)。

    (2)实现方式

    从doExecute方法看出,有三个出口(finalLocation为要跳转的地址):

    pageContext.include(finalLocation);

    dispatcher.forward(request, response); (dispatcher是根据finalLocation创建的)

    dispatcher.include(request, response);

    而我们知道,forward与include都是转发到context内部的资源。

    二、redirect

    (1)可以重定向到一个页面,另一个action或一个网址。
    # <result name="success" type="redirect">aaa.jsp</result>  
    # <result name="success" type="redirect">bbb.action</result>  
    # <result name="success" type="redirect">www.baidu.com</result>  

    (2)实现方式:

    查看doExecute方法,只有一个出口:

    response.sendRedirect(finalLocation);

    sendRedirect是重定向,是重新产生一个HTTP请求到服务器,故重定向后其原来所在的action上下文就不可用了。

    三、chain

    (1)主要用于把相关的几个action连接起来,共同完成一个功能。
    # <action name="step1" class="test.Step1Action">  
    #          <result name="success" type="chain">step2.action</result>  
    # </action>  
    #   
    # <action name="step2" class="test.Step2Action">  
    #          <result name="success">finish.jsp</result>  
    # </action>

    (2)实现方式:

    查看execute()方法,主要思想如下:

    // 根据Action名称finalActionName及要调用的方法finalMethodName来new一个代理对象proxy,并执行之
    # proxy = actionProxyFactory.createActionProxy(finalNamespace,   
    #                    finalActionName, finalMethodName, extraContext);   
    # proxy.execute();

    (3)多个action间数据的传递

    主要有两种方式:

    1。由于处于chain中的action属于同一个http请求,共享一个ActionContext,故可以在上下文中获取,在页面上可以直接使用。手动获取的方法如下:
    # HttpServletRequest request = ServletActionContext.getRequest();   
    # String s=(String)request.getAttribute("propName");  

    2。实现ModelDriven接口

    在Step1Action中,加入getModel:
    # public Object getModel() {         
    #          return message;   
    # }

    在Step2Action中,加入setModel:
    # public void setModel(Object o){   
    #          System.out.println("message is:"+o);   
    # }

    注意,setModel的调用先于execute()方法后于构造方法。

    展开全文
  • 科学计算器vb代码.doc

    2021-06-18 07:30:03
    科学计算器vb代码.doc (19页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦!14.90 积分· 用VB写计算器似乎有很多例子,这个代码就是其中之一,科学计算器是在基本...

    a7f4a3f590493a1e451dd952a488fd7c.gif 科学计算器vb代码.doc

    (19页)

    47ffa6309ad52573887c5ad11cf1586e.gif

    本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦!

    14.90 积分

    · 用VB写计算器似乎有很多例子,这个代码就是其中之一,科学计算器是在基本计算器的基础上,加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的数学计算,当然基础的加减乘除运算就更不用说了,这是在一本VB教程中摘录的代码,你可以此为基础完善扩展该计算器的功能,运行截图如下:核心代码,只有一个文件代码:VERSION 5.00Begin VB.Form Frm_Scientific Caption = "计算器" ClientHeight = 2925 ClientLeft = 165 ClientTop = 735 ClientWidth = 5595 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False ScaleHeight = 2925 ScaleWidth = 5595 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Cmd_Rnd Caption = "Rnd" Height = 390 Left = 5025 TabIndex = 39 Top = 1455 Width = 510 End Begin VB.CommandButton Cmd_PI Caption = "PI" Height = 390 Left = 1575 TabIndex = 38 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Fact Caption = "N!" Height = 390 Left = 1575 TabIndex = 37 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Log Caption = "Log" Height = 390 Left = 1575 TabIndex = 36 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Ln Caption = "Ln" Height = 390 Left = 1575 TabIndex = 35 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Square Caption = "X^2" Height = 390 Left = 840 TabIndex = 34 Top = 2400 Width = 630 End Begin VB.CommandButton Cmd_Cube Caption = "X^3" Height = 390 Left = 825 TabIndex = 33 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Operator Caption = "X^Y" Height = 390 Index = 5 Left = 840 TabIndex = 32 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Exp Caption = "Exp" Height = 390 Left = 840 TabIndex = 31 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Sin Caption = "Sin" Height = 390 Left = 120 TabIndex = 30 Top = 960 Width = 630 End Begin VB.CommandButton Cmd_Cos Caption = "Cos" Height = 390 Left = 120 TabIndex = 29 Top = 1455 Width = 630 End Begin VB.CommandButton Cmd_Tan Caption = "Tan" Height = 390 Left = 120 TabIndex = 28 Top = 1935 Width = 630 End Begin VB.CommandButton Cmd_Atan Caption = "Atan" Height = 390 Left = 120 TabIndex = 27 Top = 2400 Width = 630 End Begin VB.Frame Frame1 Height = 510 Left = 90 TabIndex = 23 Top = 330 Width = 2625 Begin VB.OptionButton Otn_Grd Caption = "梯度" Height = 180 Left = 1695 TabIndex = 26 Top = 210 Width = 750 End Begin VB.OptionButton Otn_Rad Caption = "弧度" Height = 180 Left = 900 TabIndex = 25 Top = 210 Width = 795 End Begin VB.OptionButton Otn_Deg Caption = "角度" Height = 180 Left = 135 TabIndex = 24 Top = 210 Value = -1 'True Width = 675 End End Begin VB.CommandButton Cmd_Operator Caption = "=" Height = 390 Index = 4 Left = 5025 TabIndex = 22 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_Operator Caption = "+" Height = 390 Index = 3 Left = 4470 MaskColor = &H00808080& Style = 1 'Graphical TabIndex = 21 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "." Height = 390 Index = 11 Left = 3915 TabIndex = 20 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "+/-" Height = 390 Index = 10 Left = 3360 TabIndex = 19 Top = 2400 Width = 510 End Begin VB.CommandButton Command1 Caption = "0" Height = 390 Index = 0 Left = 2820 TabIndex = 18 Top = 2400 Width = 510 End Begin VB.CommandButton Cmd_fraction 。省略部分。t = "0." Then Exit Sub End If If (Txt_Result.Text "") Then Txt_Result.Text = Mid(Txt_Result.Text, 1, Len(Txt_Result.Text) - 1) ElseIf Txt_Result.Text = "" Then Txt_Result.Text = "0." End IfEnd SubPrivate Sub Cmd_C_Click() '清零 Txt_Result.Text = "0" prev = 0End SubPrivate Sub Cmd_CE_Click() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Txt_Result = " 0"End SubPrivate Sub Cmd_Cos_Click() 'Cos值 Txt_Result.Text = Str(Cos(ang * Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Cube_Click() Txt_Result.Text = Val(Txt_Result.Text) ^ 3 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Exp_Click() '计算Exp的值 Txt_Result.Text = Exp(Txt_Result.Text) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Fact_Click() 'N! Txt_Result.Text = Str(fac(Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_fraction_Click() '倒数 Dim Temp Temp = Val(Txt_Result.Text) If Temp 0 Then Txt_Result.Text = Str(1 / Temp) Else Txt_Result.Text = "除数不能为零。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Ln_Click() 'LN If Val(Txt_Result.Text) > 0 Then Txt_Result.Text = Str(Log(Val(Txt_Result.Text))) Else Txt_Result.Text = "输入有误。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Log_Click() 'Log If Val(Txt_Result.Text) > 0 Then Txt_Result.Text = Str((Log(Val(Txt_Result.Text)) / Log(10))) Else Txt_Result.Text = "输入有误。" End If prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Operator_Click(Index As Integer) ' 单击操作符按钮 If opnre = 0 Or Index = 4 Then If ind = 3 Then '加号 prev = prev + Val(Txt_Result.Text) ElseIf ind = 2 Then '减号 prev = prev - Val(Txt_Result.Text) ElseIf ind = 0 Then '除号 If Val(Txt_Result.Text) = 0 Then Txt_Result.Text = "除数不能为零。" Exit Sub Else prev = prev / Val(Txt_Result.Text) End If ElseIf ind = 5 Then 'X^Y prev = prev ^ Val(Txt_Result.Text) ElseIf ind = 1 Then '乘号 prev = prev * Val(Txt_Result.Text) End If If prev = 0 Then '如果前一个操作数为0 prev = Txt_Result.Text '将当前的值传给操作数 Else '否则 Txt_Result.Text = Str(prev) '将操作数的值传递给文本框显示 End If oflag = 0 End If opnre = 1 ind = Index dflag = 0End SubPrivate Sub Cmd_PI_Click() 'PI Txt_Result.Text = 3.141592654 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Rnd_Click() '产生一个随机数 Txt_Result.Text = Str(Rnd)End SubPrivate Sub Cmd_Sin_Click() 'Sin值 Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text))) prev = Txt_Result.TextEnd SubPrivate Sub Cmd_sqrt_Click() '求平方根 Dim Temp As Integer Temp = Val(Txt_Result.Text) If Temp > 0 Or Temp = 0 Then Txt_Result.Text = Str(Sqr(Val(Txt_Result.Text))) Else Txt_Result.Text = "函数输入无效。" End IfEnd SubPrivate Sub Cmd_Square_Click() '求平方 Txt_Result.Text = Val(Txt_Result.Text) ^ 2 prev = Txt_Result.TextEnd SubPrivate Sub Cmd_Tan_Click() 'Tan函数 If (Cos(Val(Txt_Result.Text))) 0 Then Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text)) / Cos(ang * Val(Txt_Result.Text))) Else Txt_Result.Text = "除数不能为零。" End If prev = Txt_Result.TextEnd SubPrivate Sub Command1_Click(Index As Integer) '数字键 If ind = 4 Then prev = 0 Txt_Result.Text = " " ind = 0 End If opnre = 0 If oflag = 0 Then Txt_Result.Text = " " End If oflag = 1 If Command1(Index).Caption "." Then If Txt_Result.Text "0." Then Txt_Result.Text = Txt_Result.Text & Command1(Index).Caption Else Txt_Result.Text = " " & Command1(Index).Caption End If Else If dflag = 0 Then Txt_Result.Text = Txt_Result.Text & "." dflag = 1 Else Txt_Result.Text = "输入有误。" End If End IfEnd SubPrivate Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 Clipboard.ClearEnd SubPrivate Sub Menu_All_Click() '全选 Clipboard.Clear Clipboard.SetText Txt_Result.TextEnd SubPrivate Sub Menu_Copy_Click() '复制 Clipboard.Clear Clipboard.SetText Txt_Result.TextEnd SubPrivate Sub Menu_Cut_Click() '剪切 Clipboard.Clear Clipboard.SetText Txt_Result.Text Txt_Result.Text = ""End SubPrivate Sub Menu_Exit_Click() '退出 EndEnd SubPrivate Sub Menu_HelpSubject_Click() MsgBox "未开通帮助功能。", vbCriticalEnd SubPrivate Sub Menu_Paste_Click() '粘贴 Txt_Result.Text = "" Txt_Result.Text = Clipboard.GetText()End SubPrivate Sub Otn_Deg_Click() '角度 If Otn_Deg = True Then ang = 3.141592654 / 180 End IfEnd SubPrivate Sub Otn_Grd_Click() '梯度 If Otn_Grd.Value = True Then ang = 3.141592654 / 200 End IfEnd SubPrivate Sub Otn_Rad_Click() '弧度 If Otn_Rad.Value = True Then ang = 1 End IfEnd Sub'计算阶乘'**输 入:num(Long) - 要计算阶乘的数'**输 出:(Long) - 计算结果'**功能描述:计算一个小于12的数的阶乘Function fac(num As Long) As Long Dim re If (num 12) Then Txt_Result.Text = "输入的数值过大。" fac = num Else re = 1 While (num > 0) re = re * num num = num - 1 Wend fac = re End If End IfEnd FunctionVB科学计算器代码,新建一工程后引入上述代码文件编译即可。 关 键 词: 代码 计算器 科学 vb

    4d91c43bfc72ca913299809b07b4968f.gif  天天文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。

    展开全文
  • 很多常用的Linq写法,基于Vb.net,本人收获良多 LinqSamples LinqToSQLSamples LinqToXMLSamples LinqToDataSetSamples 举例:Linq to sql Dim categories = From prod In db.Products _ Group By Key = New With ...
  • 利用activeX实现matlab和vb的混合编程-vb_matlab_activeX.rar  想要在vb里面直接执行matlab的代码吗?想省去编译dll文件的代码吧?  好的,activeX帮你实现这样的功能.   activeX简介: ActiveX部件是Microsoft...
  • VB实现的人事管理系统源代码+数据库SQL Server2014+程序说明。 一、本系统由以下对象组成: 1.窗体 (1)AddUser:添加用户; (2)Backup:数据库备份; (3)delete_staff:删除职员数据; (4)Login:系统...
  • VB.NET支持四舍五入的计算器... Private cal_result As Double '记录下计算结果,以便在改变精度时可以从原值中重新截取  里面各个数字运算功能的实现,调用VB.NET中的什么方法实现,都是这个计算器要学习的重点哦。
  • VB各种运算符及优先级》由会员分享,可在线阅读,更多相关《VB各种运算符及优先级(3页珍藏版)》请在人人文库网上搜索。1、运算符作用区别示例结果&将两个字符串拼接起来连接符两旁的操作数不管是字符型还是...

    《VB各种运算符及优先级》由会员分享,可在线阅读,更多相关《VB各种运算符及优先级(3页珍藏版)》请在人人文库网上搜索。

    1、运算符作用区别示例结果&将两个字符串拼接起来连接符两旁的操作数不管是字符型还是数值型,系统先将操作数转换成字符,然后再连接。123&55abc+1212355abc12+连接符两旁的操作数均为字符型;若均为数值型则进行算术加法运算;若一个为数字字符型,一个数值型,则自动将数字字符转换为数值,然后进行算术加;若一个为非数字字符型,一个数值型,则出错。123+55abc+12178出错l Like运算符语法:result = String Like pattern通配符说明用法?任何单一字符Chi可写成c?i*任何个数字符,包括空字符Chi可写成C*#任何一个数字(09)Ch98可写成Ch#中任何。

    2、一个单字符Chi可写成Ca-zI,还可写成Cag-z!不在!中的任何单一字符Chi可写成C!a-gi-zF:Dim B As Boolean B = “a1a” Like “a#a” 返回TrueB = “D” Like “A-Z” 返回TrueB = “D” Like “!A-Z” 返回FalseB = “CAT1234Hdrg” Like “C?T*” 返回TrueB = “BAT1234Hdrg” Like “C?T*” 返回Falsel 关系运算符 运算符含义示例结果=等于ABCDE=ABRFalse大于ABCDEABRFalse=大于等于bc=大小False不等于abc、=、Is 同级Like运算符:Like逻辑运算符:由高到低 Not And Or Xor Eqv Imp。

    展开全文
  • 具体操作参见链接 ...rank_v2~rank_v29-2-104374178.nonecase&utm_term=VB6++%E6%BB%9A%E8%BD%AE&spm=1018.2226.3001.4450
  • 调用浏览器访问某一网址(页)是软件中常见的功能。本文总结在VB编程中调用浏览器访问网页的三种方法: Shell 函数、ShellExecute API 函数和 Automation ... 如:Dim Result As VariantResult = Shell("C:\Program Fi...
  • VB.NET 保留2位小数

    2021-06-04 16:35:11
    写程序遇到的一个需求:结果值需要保留两位数,再根据结果值判断分成A、B... Dim result As Double Dim result2 As String Dim value1 As Double Dim value2 As Double value1=TextBox1.Text value2=TextBox2.Text
  • VB.NET 教程_01_基础语法

    万次阅读 多人点赞 2018-08-08 00:48:58
    VB.Net是一种简单,现代,面向对象的计算机编程语言,由微软开发,将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET(VB.NET)是在.NET Framework上...
  • VB与C#的区别

    千次阅读 2018-09-07 14:23:28
    因工作需要熟悉这两门语言。网络上找的资料 一、实体部分 c#实体 public int Id //作用方式 { get id;//读取属性值 set id;...vb实体 Private ID As String ‘定义静态属性 Pub...
  • 使用VB.Net发送Post请求

    2021-08-04 02:25:36
    使用VB.Net发送Post请求从我在线阅读我已经结束了下面的代码。然而,我只是在猜测,并不确定它是否正确,特别是因为我无法使它正常工作(我得到的例外已包含在代码中的注释中)。这是我的错,还是与我发送请求的地方...
  • VB6下Command获取SQL存储过程返回值

    千次阅读 2017-08-26 11:43:37
    最近在给老程序(VB6+SQL2005)添加数据库备份、恢复功能。以前没写是因为太懒。在使用ado Command调用存储过程sp_addumpdevice时,发现存储过程有返回值(0——成功,1——失败)。但按照之前的书写格式,把结果...
  • 1点击开发者工具,选择...If myPos = 0 Then result = uexist ElseIf myPos > 0 Then result = exist Exit For End If Next tiqu = result End Function 4点击保存点击按钮时:先否,替换,后是 5表格中输入函数和参数
  • VB分割RGB颜色值

    2021-02-15 17:03:58
    Private Declare Function ChooseColor Lib “comdlg32.dll” Alias “ChooseColorA” (pChoosecolor As ChooseColor) As Long Private Type ...rgbResult As Long lpCustColors As String flags As Long lCus.
  • 在窗体画一个Command1,加入以下代码: Option Explicit Private Declare Function ChooseColor Lib “comdlg32.dll” Alias “ChooseColorA” (pChoosecolor As ChooseColor) As Long ...rgbResult As Long lp.
  • VB.NET GET接口传送数据,获取返回值

    千次阅读 2016-07-29 14:08:30
    VB.NET GET接口传送数据,获取返回值
  • VB6 执行String语句

    2013-12-15 16:05:27
    首先:Imports System.Runtime.InteropServices ... If Result = False Then Debug.Print(i + 1 & vbTab & "行执行错误") Else Debug.Print(i + 1 & vbTab & "行代码错误") End If Next End Sub
  • VB 调用 C

    2020-10-21 11:23:28
    在 Windows 上 GUI 玩的最溜当属 VB,现在想做一个小工具,解析数据协议,想利用 C 语言的强大字符处理能力,展示部分还是用VB做方便,基于此目的,前期方案论证开始了... 环境:Win10 + Dev-C++ 5.11 + VB6.0 ...
  • C# vb .NET生成QR二维码

    2019-10-13 19:44:47
    result = BarcodeWriteEngine . CreateQrCode ( "SharpBarcode,专业的.NET条形码和QR二维码读写类库SDK." , 350 ) ; //GeneratedBarcode类提供了丰富的接口,可以用来对生成的结果进行 //调整,比如...
  • Dim result As Double Private Sub Option1_Click() If Option1.Value Then Label1.Caption ="" result = Val(Text1.Text) * Val(Text2.Text) 'val()将字符串转换为数值型(因为文本框只接受字符型数据,而程序要求...
  • 这段时间在移植项目的过程中,起初我想判断一个字符串中是否存在某字符(串),直接的使用方法是用instr(start,string1,string2,VB compare),但经过分析在VB中可以只用一下方法来判断!1.常用的INStr方法Function ...
  • VB】猜数字

    2020-05-03 11:29:10
    经典小游戏:猜数字 附工程链接 可执行程序 Public Function calc() As Long Randomize calc = Int(Rnd * 100) + 1 End Function ... ' If Val(redo.Tag) = 0 Then result.Caption = "快去重置吧!" Di...
  • vb.net嵌入BAIDU OCR实例

    千次阅读 2019-07-12 16:00:45
    一、准备工作 ... ...之后返回应用管理则可看到 APP_ID、API_KEY、SECRET_...https://ai.baidu.com/sdk#ocr VB.NET就选择C#SDK 以最新的4.X为例,下载之后解压缩.net 4.5的文件夹 1.3然后在VS中将上述两个dll添加...
  • vb6里解析json数据

    万次阅读 2018-09-17 18:28:34
    vb6里不支持json对象,这里使用通过引用js来实现json的解析 获取简单的json串里的值 遍历json键值对较多的复杂json串
  • Command1.Caption = “打开” Command2.Caption = “另存为” End Sub 'VB API调用颜色对话框 Private Type ChooseColor lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors ...
  • facing curly quotes Dim newString As String = origString.Replace("""", ChrW(8220)) 'Display the result MessageBox.Show(newString) 或者,如果您尝试使用备用表示法替换它们来编码字符串中的左侧卷曲引号...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 18,870
精华内容 7,548
热门标签
关键字:

vb的result