精华内容
下载资源
问答
  • vb中val是什么意思这是一个把字符串转为数值的函数,将S转为它的数值形式存入V中。它返回包含于字符串内的数字,字符串是一个适当类型的数值。通常在visual foxpro(数据库管理系统)中用的比较多。必要的 string 参数...

    vb中val是什么意思?随着时代的发展,越来越多的的新词汇出现在我们的生活中,下面就和美文阅读网小编一起来了解一下vb中val是什么意思吧。

    vb中val是什么意思

    这是一个把字符串转为数值的函数,将S转为它的数值形式存入V中。

    它返回包含于字符串内的数字,字符串是一个适当类型的数值。通常在visual foxpro(数据库管理系统)中用的比较多。

    必要的 string 参数可以是任何有效的字符串表达式。

    Val ( )函数,在它不能识别为数字的第一个字符上,停止读入字符串。那些被认为是数值的一部分的符号和字符,例如美圆号与逗号,都不能被识别。但是函数可以识别进位制符号 &O(八进制)和 &H(十六进制)。空白、制表符和换行符都从参数中被去掉。

    拓展阅读:val路轨技术

    VAL是自1980年代采用了Robert Gabillard教授发明的胶轮路轨系统技术,由法国马特拉公司设计的一套专利轨道运输系统。这是一个由列车到月台设计全包的“套餐”系统。特点是采用了胶轮列车及路轨系统、全自动无人驾驶中央导航列车及安装有瑞士Kaba公司制的自动开关月台幕门的车站。

    VAL原为“Villeneuve d'Ascq a Lille”,即“维尔诺夫达斯克至里尔”的法文缩略以表示第一个采用了这个系统的路线。但后来官方将之定义为技术向的“Vehicule Automatique Leger”,法文直译为“自动轻级车辆”之意。

    展开全文
  • vb中val是什么意思这是一个把字符串转为数值的函数,将S转为它的数值形式存入V中。它返回包含于字符串内的数字,字符串是一个适当类型的数值。通常在visual foxpro(数据库管理系统)中用的比较多。必要的 string 参数...

    vb中val是什么意思?随着时代的发展,越来越多的的新词汇出现在我们的生活中,下面就和康网小编一起来了解一下vb中val是什么意思吧。

    vb中val是什么意思

    这是一个把字符串转为数值的函数,将S转为它的数值形式存入V中。

    它返回包含于字符串内的数字,字符串是一个适当类型的数值。通常在visual foxpro(数据库管理系统)中用的比较多。

    必要的 string 参数可以是任何有效的字符串表达式。

    Val ( )函数,在它不能识别为数字的第一个字符上,停止读入字符串。那些被认为是数值的一部分的符号和字符,例如美圆号与逗号,都不能被识别。但是函数可以识别进位制符号 &O(八进制)和 &H(十六进制)。空白、制表符和换行符都从参数中被去掉。

    拓展阅读:val路轨技术

    VAL是自1980年代采用了Robert Gabillard教授发明的胶轮路轨系统技术,由法国马特拉公司设计的一套专利轨道运输系统。这是一个由列车到月台设计全包的“套餐”系统。特点是采用了胶轮列车及路轨系统、全自动无人驾驶中央导航列车及安装有瑞士Kaba公司制的自动开关月台幕门的车站。

    VAL原为“Villeneuve d'Ascq à Lille”,即“维尔诺夫达斯克至里尔”的法文缩略以表示第一个采用了这个系统的路线。但后来官方将之定义为技术向的“Véhicule Automatique Léger”,法文直译为“自动轻级车辆”之意。

    展开全文
  • 解决思路:VB中传入参数,并调用Notes数据库中的代理来实现。1 VB中运行代理例如:要创建一份文档表单名称Student,四个域Name、Sex、Age、Memo,域值分别zhangsan、M、26、hello,则strUrl=...

    解决思路:VB中传入参数,并调用Notes数据库中的代理来实现。

    1 VB中运行代理

    例如:要创建一份文档表单名称Student,四个域Name、Sex、Age、Memo,

    域值分别zhangsan、M、26、hello,则

    strUrl="http://127.0.0.1/domcfg.nsf/WriteRecord?OpenAgent"

    strPara="&DB=oa/system.nsf"

    strPost="&Field=Form,Name,Sex,Age,Memo&Value=Student,zhangsan,M,26,hello"

    strRet=DoPost(strUrl,strPara,strPost)

    Msgbox "运行结果:" & strRet

    Function DoPost(strUrl As String, Optional strPara As String, Optional strPost As String) As String

    Dim xmlHttp As Object

    Set xmlHttp = CreateObject("Microsoft.XMLHTTP")

    Call xmlHttp.Open("POST", strUrl + strPara, False)

    Call xmlHttp.Send(strPost)

    DoPost = xmlHttp.responseXML.documentElement.Text

    End Function

    2 创建文档WriteRecord代理:

    Sub Initialize

    On Error Goto Alert

    Dim ss As New NotesSession

    Dim db As NotesDatabase

    Dim doc As NotesDocument

    Dim dbTarget As NotesDatabase

    Dim docTarget As NotesDocument

    Dim strPara As String

    Set db = ss.CurrentDatabase

    Set doc = ss.DocumentContext

    '数据库

    strPara = GetParaValue(doc.Query_String_Decoded(0),"Db","")

    If strPara = "" Then

    Set dbTarget = db

    Else

    Set dbTarget = New NotesDatabase("",strPara)

    If Not(dbTarget.IsOpen) Then

    PrintXML "操作失败"

    Exit Sub

    End If

    End If

    Dim i As Integer

    '表单域及域值,传入数据使用","做为分隔符

    Dim varField As Variant

    Dim varValue As Variant

    strPara = GetParaValue(doc.Request_Content(0),"Field","")

    varField = Split(strPara,",")

    strPara = GetParaValue(doc.Request_Content(0),"Value","")

    varValue = Split(strPara,",")

    '新建文档

    If varField(0)<>"" Then

    Set docTarget = New NotesDocument(dbTarget)

    For i=0 To Ubound(varField)

    Call docTarget.ReplaceItemValue(varField(i),varValue(i))

    Next

    Call docTarget.Save(True,True)

    PrintXML "操作成功"

    Else

    PrintXML "获取参数失败"

    End If

    Exit Sub

    Alert:

    Msgbox "Error:" & Error & " Erl:" & Erl & " Err:" & Err

    PrintXML "操作失败"

    End Sub

    Function GetParaValue(Byval strQuery As String,Byval strName As String,Byval strDefault As String) As String

    Dim strPara As String

    Dim intPos As Integer

    intPos=Instr(Lcase$(strQuery),"&" & Lcase(strName) & "=")

    If intPos>0 Then

    strPara=Mid$(strQuery ,intPos+2+Len(strName))

    If Instr(strPara,"&")>0 Then

    strPara=Strleft(strPara,"&")

    End If

    GetParaValue=Trim$(strPara)

    Else

    GetParaValue=strDefault

    End If

    End Function

    Sub PrintXML(Byval strXML As String)

    Print "content-type:text/xml; charset=gb2312"

    Print "<?xml version=""1.0"" encoding=""gb2312""?>"

    Print "

    " & strXML & "
    "

    End Sub

    3 说明

    (1)DoPost函数中的参数格式需要同代理保持一致

    (2)示例中增加传入Db参数,若参数为空则表示在当前数据库中创建文档

    (3)示例处理中将文档所属表单做为参数传入,通过Field中的Form及对应的值来指定

    (4)示例中只处理各数据值为文本的情况,读者可通过增加传入区别数据类型的参数以解决该问题

    分享到:

    18e900b8666ce6f233d25ec02f95ee59.png

    72dd548719f0ace4d5f9bca64e1d7715.png

    2006-05-31 11:01

    浏览 1114

    评论

    展开全文
  • VB C/S架构通信

    2013-06-23 22:01:06
    VB C/S网络聊天服务器、客户端源程序,一个点对点实现的Vb聊天程序,分别展示了服务端和客户端编程的实现,简单实用。两程序在VB6下均可直接编译,在程序添加聊天模块的话,参考本程序就可轻易实现
  • VB中TreeView的用法和几个实例*****************************************1、为树状浏览器控件添加节点和子节点用ADD方法添加一个新节点到树状浏览器的NODES集合时,可以声明它是和已存在的节点所联系起来的。...

    VB中TreeView的用法和几个实例

    *****************************************

    1、为树状浏览器控件添加节点和子节点

    用ADD方法添加一个新节点到树状浏览器的NODES集合时,可以声明它是和已存在的节点所联系起来的。通常使用ADD方法,其语法如下:

    Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])

    各个参数的意义如下:

    relationship 参数是通过关系节点参数与新节点连接的另一个节点;

    relationship 参数可能是以下情况:

    tvwlast--1;该节点置于所有其他的在relative中被命名的同一级别的节点的后面

    tvwNext--2;该节点置于在relative中被命名节点的后面

    tvwPrevius--3;该节点置于在relative中被命名的节点的前面

    tvwChild--4;该节点成为在relative中被命名的节点的的子节点

    下面是一个例子:

    Dim node1,node2,node3,node4 as Node

    set Node1=TreeView1.Nodes.Add

    TreeView1.Nodes(1).text="node1"

    TreeView1.Nodes(1).key="node1"

    Set node2=treeview.nodes.add("node1",tvwChild,"node2")

    TreeView1.Nodes(2).text="node2"

    TreeView1.Nodes(2).key="node2"

    依次插入节点即可。

    2、为节点插入图象

    treeview1.node(3).image="leaf"

    注意我们一般从imagelist中指定图象

    3、处理节点的点击,怎样才能知道树状浏览器的哪一个节点被点击了呢?可以用NodeClick 事件:

    public sub treeview1_nodeclick(byval node as comctllib.node)

    text1.text="you click"&node.text

    end sub

    *********************************************************

    2、TreeView的使用,及选中其中指定的节点

    ’=============

    Private Sub Command1_Click()

    Dim nodeY As Node

    For Each nodeY In TreeView1.Nodes

    If CStr(Trim(nodeY.Text)) = "ff" Then

    nodeY.Selected = True

    TreeView1.SetFocus

    Exit For

    End If

    Next

    End Sub

    Private Sub Form_Load()

    Rs1.CommandType = adCmdText

    Rs1.RecordSource = "select distinct biao,zu from test order by zu"

    Rs1.Refresh

    Dim Rs As ADODB.Recordset

    Set Rs = Rs1.Recordset

    Set nodX = TreeView1.Nodes.Add(, , "r", "报表组 ")

    i = 0

    Dim TempString As String

    Dim TempKey As Long

    Do Until Rs.EOF Or Rs.BOF

    If TempString = Rs!zu Then

    Set nodeX = TreeView1.Nodes.Add("Z" & TempKey, tvwChild, "B" & i, Rs!biao)

    Else

    Set nodX = TreeView1.Nodes.Add("r", tvwChild, "Z" & i, Rs!zu)

    Set nodeX = TreeView1.Nodes.Add("Z" & i, tvwChild, "B" & i, Rs!biao)

    TempString = Rs!zu

    TempKey = i

    End If

    Rs.MoveNext

    i = i + 1

    Loop

    End Sub

    **********************************************************

    3'功能:

    展开全文
  • VB中使用ADO访问SQL

    2009-03-20 14:25:23
    介绍了在VB中使用ADO对SQL Server数据库调用的方法,并给出了一个用VB设计C/S模式下学生成绩打印系统的实例
  • Dim s As Long, i As Long Dim a() Do ReDim Preserve a(s) a(s) = InputBox(“请输入字符串,输入空串时结束”, “输入”) s = s + 1 Loop Until a(s - 1) = “” For i = 0 To s - 2 Text1...
  • ●用VB编程来开发纸牌接龙游戏今天,我们共同来学习VB编程数组相关的知识。实际运行图实现源码:Dim max As Integer, imax As Integer, i As IntegerPrivateSubCommand1_Click()Print "生成的数组元素为:"s = ...
  • Private Sub Form_Load() Dim s As Integer s = 1 End Sub Private Sub Timer1_Timer() If Me.Left < 0 Or Me.Left > Screen.Width - Me.Width Then s = -1 * s Me.Left = Me.Left + 100 * s End Sub
  • Partial Classes are a feature of VB.NET that is used almost everywhere, but there's not much written about it. This might be because there are not a lot of obvious "developer" applications ...
  • VB清除中文字符

    2018-08-22 11:14:48
    Private Sub Command1_Click() Dim s As String s = "" For i = 1 To Len(Text1.Text) If Asc(Mid(Text1.Text, i, 1)) &gt; 0 Then s = s + Mid(Text1.Text, i, 1) Next i Text1.Text = s End Sub
  • VB中三角函数计算VB中反三角函数的计算By? colleen 发表于 2007-3-28 14:20:06?VB中反三角函数的计算问题,但由于马上就要上课了,而且自己对VB中的反三角函数也不够熟悉,所以决定和他一起在课后探讨。现在经过整理...
  • 烦请有过这方面开发的高人指点一下。 如果不通用,有些什么差别呢? 谢谢!
  • vb中的十六进制

    2016-05-19 17:41:56
    Private Sub Command1_Click() Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 230: b = 16 While a yushu = a Mod b ...s = yushu & s Else s =
  • 就是一阶的那种,用VB写的!就是这样的1/(s+1),用matlab很好实现,用VB就不会了,想对这个传递函数做个PID,vb的。 或者先把这个传递函数用VB写一下,谢谢啦!
  • Vb中如何输入双引号,转义字符

    万次阅读 2018-05-18 22:29:23
    但是在vb中就不可以,我的天毕设用vb写,真的好恶心,但是为了平平安安顺利毕业,只能硬着头皮写下去,遇到不会的问题只能现查了,这里总结一下:首先我们可以通过输入两个双引号来输入一双引号,比如我们想要一个...
  • vb中几种循环

    千次阅读 2016-04-28 16:52:29
    Private Sub Command1_Click() Cls ...Dim s As Integer Dim a(10) As Integer n = 1 While n a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print a(n) n = n + 1 Wend
  • VB.NET操作xml文件

    2020-03-05 09:59:55
    转载:《VB.NET操作xml文件》原文地址 已知有一个XML文件(bookstore.xml)如下: <?xml version="1.0" encoding="gb2312"?> <bookstore> <book genre="fantasy" ISBN="2-3631-4"> <...
  • 解决思路:VB中传入参数,并调用Notes数据库中的代理来实现。1 VB中运行代理例如:要创建一份文档表单名称Student,四个域Name、Sex、Age、Memo,域值分别zhangsan、M、26、hello,则strUrl=...
  • VB中的String类型调用VC的DLL

    千次阅读 2012-10-30 10:55:40
    VB中的String类型调用VC的DLL EXTERN_C BSTR WINAPI RetStr(LPCTSTR str)  {  return SysAllocString((BSTR)str);  }  VB中 Private Declare Function RetStr Lib "D:\learn\VB\fangda\MFCDIB....
  • VB中怎么实现COM+

    2012-12-27 09:46:18
    终于试验成功了! 我在原本只有win2000 professional 的机器上又安装了一个win2000 server,并将其配置成主域 控制器,然后在另一台win98机器上用Administrator登录,启动VB,写...1、在win2000 server机器上用VB(+S
  • VB.NET 读取txt文件 1.所需命名空间 Imports System.IO Imports System.Web 2. 读取文件代码 Dim fp As StreamReader Dim s As String fp = File.OpenText(HttpContext.Curren...
  • vb中使用正则的几个方法

    千次阅读 2018-05-17 09:36:37
    许多程序设计语言都支持利用正则表达式进行字符串操作,基本都是直接内置,直接使用,而我们的vb6太老了,没有内建封装,只能通过第三方组件来使用,总结了下不外乎下面3种方法。... Dim reg As Object, s As Str...
  • VB.NET的DataGridview的操作 这几天做了一个上位机,需要动态的修改DataGridview的行和列的内容和数据。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System....
  • VB中调用DOS命令

    千次阅读 2009-08-13 11:04:00
    VB中调用DOS命令,如何得知DOS命令是否已经执行完毕_____________________________________________Set wshl = CreateObject("wscript.shell")wshl.Run "ping 9zp.com", 1, True true代表等待完成,1代表显示运行...
  • vb6托盘程序

    2009-01-11 11:27:00
    vb6托盘程序 Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Declare Function S
  • VB中几种循环结构

    千次阅读 2016-04-17 16:54:27
    Private Sub Command1_Click() Cls ...Dim s As Integer Dim a(10) As Integer n = 1 While n a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print a(n) n = n + 1 Wend
  • VB开发的局域网聊天小程序,基于C/S网络实现,设有一个聊天服务器,客户端可以复制到多个客户端,一个点对点实现的Vb聊天程序,分别展示了服务端和客户端编程的实现,简单实用。两程序在VB6下均可直接编译,在程序...
  • vb中使用Windows Forms

    2007-02-25 09:43:00
    1.丰富的控件集使用System.Windows.Forms 名字空间的类,你可以创建Visual Basic .NET 应用程序并获取Microsoft Windows 操作...许多额外的控件包含在 以前的一些外部库(.ocx’s) 或第三方产品.一些现存的控件现在允许

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,127
精华内容 450
关键字:

vb中s