'将以度分秒表示的经纬度转换为以度表示的经纬度 Function CoordinateTrans(ByVal Coordinate As String) As Double Dim sTemp() As String '判断引用值是否为数值，若不是则直接输出0 If IsNumeric(Coordinate) Then '格式化经纬度的表示方法（度.分.秒）

DirectCast和CType的区别 Introduction 我们何时该使用 CType, 何时又该使用 DirectCast, 哪一个更好? 一个简单的答案是: 对于值类型, DirectCast 的速度是 CType 的两倍, 引用类型则基本相同. Background CType 和 DirectCast 不是同一个东西. 只有 CType 能将一个对象转换成一个新类型的实例. 假设你要

  最近想做一个桌面的类似台历的VB程序，其中最主要的就是显示效果的问题，一般我们可能要求有一个异样的外观，另外我们还可能要让它总是显示在最前面，所以我就将我做的让VB窗口总是在最前面显示的总结写出来大家参考一下，其实想要让窗口始终在最前面显示，只需要一个API函数就可以了，该函数的原型是： Private Declare Function SetWindowPos Lib "user32" (B

在WinCE下实现透明Label，搞了半天，终于在网上找到正解，还是很不容易的，现在把解决方案理一下。 步骤如下： （0）建个空工程 （1）拖个PictureBox控件进来，名称为PictureBox1； （2）拖个Label控件进来，名称为Label1； （3）将Label控件放到PictureBox上面，并把Visable属性设置成False （4）在Form1_Load事件里加入以下代码:

''' <summary> ''' 设置ToolTip ''' </summary> ''' <param name="Con">按钮控件</param> ''' <param name="strToolTip">提示信息</param> ''' <remarks></remarks> Public Sub SetToolTip(ByRe

    之前写了一篇WINCE背景图上透明Label显示的解决方法，实际上就是在背景图片上将字体“画”上去，去除掉了标准控件不透明的丑恶面容。     随着项目的进一步开发，发现当背景图片上很多的情况下，改变某一个Label的内容时，其它的Lable跟着闪一下。在尝试各种方法后依然不能解决。在网上查下来的资料大都采用双缓冲的方法，即先在内存画板上将Label画好，然后dump到屏幕上。     具

在Web系统中很多时候需要用到校验码，例如我们经常遇到不少电子邮件、论坛的注册过程需要我们输入校验码，这是为了提高安全性。今天我们就来讲讲如何生成校验码。 　　使用ASP.NET来生成校验码图像很方便，网上也有不少教程与文章有介绍，但是都讲的太简单了，不够实用。我来介绍一点自己的思路，算是抛砖引玉吧。 　　首先我们来看看，生成校验码的一种常见方式： 　　1． 生成校验码的字符串 　　2． 将该字符

一、使用MSHFlexGrid控件实现对ACCESS数据库的数据访问，使用文本框来获得用户输入的数据。 二、问题： 1、如何在当前目录中使用数据库 方法： 保存文本框中的数据    Dim conn As New ADODB.Connection    Dim rs As New ADODB.Recordset    Dim Str1 As String    Dim Str2 As String

最近开始自学vb .net,刚开始，自己是借了适用vb6.0的运行环境资料，而自己练习的环境是visual stdio2008, 有些地方确实不一样，试着练习了几个小程序，发现了很多问题，课本和实际的有些不一样，语法规则有点不同，呵呵，现在终于明白问题在哪了，继续加油！

The problem with that example is that is does not register the control, and the example will only work for putting it in a web page. I did get this to work. The .Net user control can be hosted in VB6,

单件模式（Singleton Pattern）这个模式的技术简单明了： （1）隐藏默认类的构造函数 （2）添加一个共享的成员，以引用单独的、实例化的对象 （3）创建一个公有函数来创建或返回被引用的对象   Public Class Mysingleton     Private Shared m_Instance As Mysingleton     Private Shared m_TimeOf

Excel.Sheets sheets = oWB.Worksheets; Excel.Worksheet thisWorksheet = (Excel.Worksheet)sheets.get_Item(1); Excel.ChartObjects charts = (Excel.ChartObjects)thisWorksheet.ChartObjects(Type.Missing); Exc

一个VB项目的组成： 可以由多个工程组成，一个工程就是一个EXE文件。 一个工程中可由多个单文档界面（SDI）、一个多文档界面（MDI），最多一个资源文件组成。   SDI和MDI的区别：  我们如果使用过基于 Windows 的应用程序，很容易注意到不是所有用户界面看上去或操作起来都是一样的。用户界面样式主要有两种：单文档界面 (SDI) 和多文档界面 (MDI)。 SDI是在一个窗口中只能打开

一、声明变量 变量在使用前，必须在代码中进行声明，即创建该变量。 在使用变量之前，首先需要声明变量。就是说，必须事先告诉编译器在程序中使用了哪些变量，及这些变量的数据类型以及变量的长度。这是因为在编译程序执行代码之前编译器需要知道如何给语句变量开辟存储区，这样可以优化程序的执行。 声明变量有两种方式：隐式声明、显式声明。 隐式声明：变量可以不经声明直接使用，此时VB给该变量赋予缺省的类型和值。这种

01.HelloWorld   02.CatchingEvents This sample program shows how to catch the events triggered by the SAP Business One application. These include: Application events - events triggered by actions on th

需要引入命名空间 Imports System.IO         '二进制流 转文件     Public Function BinaryToFile(ByVal byTmp As Byte(), ByVal path As String) As Boolean         Dim fs As FileStream         Dim bwr As BinaryWriter      

這是 Visual Basic 控制項和物件首碼提供參考做為使用一致的匈牙利文的表示法的清單。此清單的幫助標準化編碼樣式和應用程式的邏輯結構。  Object Prefix Example -------------------------------------------------------------

问问里曾经有人问到，我告诉了他思路。昨晚听讲座期间，我写了这段代码，哪位觉得有误谢谢指正。 代码按照VS2010规范编写。   假设按下Start1按钮开始。 假设有六个标签用于输出结果。（计数结果）   Private Sub Start1_Click()       Dim SZ1 as Integer                        '定义整形变量SZ1用于存储掷骰子结果   

  首先写一个模块，其作用是检验一个子窗体是否已被实例化。 Module InstanceState     '检验一个窗体是否被实例化     Public Function GetInstanceState(ByVal name As String) As Boolean         Dim i As Integer = MDIMain.MdiChildren.Length        

That's because it requires adminstrator privilege. Change the project's setting from (#2 is required if it is Win32 program)   1.project -> properties ->   Application -> View UAC settings:    <securi