Imports System.Data.SqlClient Imports System.Data Public Class BogartAutoCodeDataBase Private Conn As SqlClient.SqlConnection = SqlConnect Sub New() 'Conn = New BogartAutoCodeConnection End Sub ' 保存的错误! Private _StrError As String = "" Friend Re…

Imports System.Data.SqlClient Imports System.Data #Region "IBogartToolbar,請勿隨便更改" Interface IBogartToolbar Sub j_menuPrint() Sub j_LoadData() 'Sub j_setToolsBar() Sub j_ChangeRecord() Sub j_AddRow() Sub j_EditRow() Property EnabledPrint() As Boo…

Module syspwd Public Const STR_MASK = "MyFunction" '加密用字串 '預定義密碼長度 Public GintCheckPwd As Integer '當傳入的密碼長度大於預定義密碼長度時 '將?生一個Message Box '以下兩個常量是該Message Box中的具體提示資訊和標題欄中的文字 Public Const STR_PWD_ERROR = "The length of password can not be gre…

'--------------Job No 0900408 -------------- '--DIM PART ONE ONLINE Update Order Qty '''主要新加過程名 RefreshOrderQty() 用于每次查詢即時更新數據源中的Lot Qty,保持與Protex的一致 '-Add by Shiny Dong Imports System.IO Imports Microsoft.VisualBasic Imports Microsoft.Win32 Imports…

Imports System Imports System.Data Imports System.Data.OleDb Imports Microsoft.VisualBasic Imports System.Console Imports System.Windows.Forms Imports System.IO Imports System.Text Imports System.Drawing Namespace BogartMis.Cls Public Class DataContr…

Module gFunction '其它不是常用的方法及函數 #Region " 將指定的數據格式轉換為英文格式" Public Function EnglishFormat(ByVal intNum As Double, ByVal blnMoney As Boolean) As String On Error GoTo err Dim strNum As String Dim intStart As Integer Dim strInt As String '整數位 Dim str…

Namespace BogartMis.Cls Public Class gGrid '設定表格控的列標題的別名 '說明:strItem字符串的格式為"01,02,03,04,05" 其中[01]這個字符串中不得包含特定符號 '特定符號: # / . - * 等 Public Overloads Sub setGridColCaption(ByVal g As DataTable, ByVal strItem As String) Try Dim myArray As String()…

一.C#中MessageBox.Show用法 MessageBox.Show (String) 显示具有指定文本的消息框. 由 .NET Compact Framework 支持. MessageBox.Show (IWin32Window, String) 在指定对象的前面显示具有指定文本的消息框. MessageBox.Show (String, String) 显示具有指定文本和标题的消息框.由 .NET Compact Framework 支持. MessageBox.Show (IWi…

前言:在用VB.NET开发射频检测系统ADS时,当激活已存在的目标MDI子窗体时,被其他子窗体遮住了,导致目标MDI子窗体不能显示. 这个问题怎么解决呢?网上看到一篇帖子VB.NET设置控件和窗体的显示级别,总结得挺不错的.现转载过来,以备后用. 解决方案: 1)使用Controls属性将子窗体作为子控件显示到Panel等的所有子控件最前方 有些控件可以作为容器使用如类似Panel.PictureBox等的控件,在向容器控件中加入其它控件时,这些子控件组合到一起成为一个控件集合,在这个控件集合中…

在PowerDesigner使用脚本批量导入excel中记录的表结构信息,由于需要通过powerdesigner逆向工程创建一些sybase IQ的表,由于是接口数据,只有excel表,手动导入太耗时了(几十张),所以百度了一下批量导入execl的方法,发现可以执行vb脚本来读excel表格,从而批量生成表结构图. 这是EXCEL格式: Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Not…

C#/VB.NET Excel数据分列 有时候我们需要将保存在Excel单元格中的组合型数据拆分为多列(如将全名拆分为姓和名两列)以方便我们处理.记忆或保存.为了避免重复和大量的手动输入工作,Excel给我们提供了一个数据分列的功能.下面这幅图展示了如何在Excel中实现数据分列: 这篇文章将介绍如何使用C#和VB.NET编程的方式来实现Excel数据分列的功能. 步骤和代码: 第一步:创建一个新的Workbook类的对象,并加载Excel文档. Workbook book = new Work…

在VB中,很多控件都提供了键盘输入功能(如文本框.组合框等),但它们对键盘的处理较简单,遇到复杂一点的要求即无能为力. 因而VB提供了KeyPress.KeyUp.KeyDown三种键盘事件,当用户按键时,会触发这三种事件,而且窗体和接受键盘输入的控件都识别这三种事件. 下表对这些事件作了描述: 键盘事件  触发原因 KeyPress 按下某ASCII字符键 KeyDown 按下键盘的任意键 KeyUp 释放键盘的任意键 KeyDown和KeyUp事件提供了最低级的键盘响应. 可用这些事件检测K…

1. ASC(X),Chr(X):转换字符字符码 [格式]: P=Asc(X) 返回字符串X的第一个字符的字符码 P=Chr(X) 返回字符码等于X的字符 [范例]: (1)P=Chr(65) ‘ 输出字符A,因为A的ASCII码等于65 (2)P=Asc(“A”) ‘ 输出65 2. Len(X): 计算字符串X的长度 [格式]: P=Len(X) [说明]: 空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算一个字符. [范例]: (1) 令X=”” (空字符串)…

用VB操作Excel(VB6.0)(整理) 首先创建Excel对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application 1)显示当前窗口:ExcelID.Visible:=True2)更改Excel标题栏:ExcelID.Caption:='应用程序调用MicrosoftExcel'3)添加新工作簿:ExcelID.WorkBooks.Add4)打开已存在的工作簿:ExcelID.WorkBo…

PictureBox对象可以说是任何对象的原始型态,它可以加载图片.显示文字.画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,PictureBox是VB基本控件里变化最多,功能最多,也是令人最想去征服它的一个物件. *在执行阶段,可以用VB的函数来帮PictureBox加载图片: Command1_Click() Picture1.Picture = LoadPicture("E:\MyGif\AniGif0562…

VB.NET操作Excel的基本方法与例子:…

既然已经做出了com程序用delphi来开发的决定,那当然就要对delphi进行一些深入的了解.有人说delphi是一个用控件堆砌起来的工具,和vb没什么两样:也有人说dephi实际上是面向过程的,他的面向对象并不彻底.实际生活中持这两种观点的人不在少数,就拿我认识的一个非常好的程序员来说吧,他很早就开始用vb,到后来接触到delphi,并且用delphi也开发了不少程序,但吃惊的是这些程序全都是面向过程的.我并没有贬低这种做法的意思,我想说的是:好的delphi控件+好的编程规范+优秀的vcl…

VB6与VB.NET对照表 VB6.0 VB.NET AddItem Object名.AddItem Object名.Items.Add ListBox1.Items.Add ComboBox1.Items.Add Abs 函数 System.Math.Abs 方法 API 函数关系 Microsoft Win32和Microsoft .NET Framework API的对应 App.Path 等 1.   System.Reflection.Assembly.GetExecutingAsse…

这里为了便于介绍程序设计的流程,更多以代码形式给出,具体可用火狐浏览器的firebug插件来抓包分析,或者用谷歌浏览器的开发者工具进行抓包.抓包地址是:http://w.qq.com 第一步,是二维码,登录上面的网址我们可以看到一个二维码页面,那么如果要实现机器人,首先第一步必须完成登录,通过手机端的扫码.具体代码获取二维码方式如下: 获取二维码的链接:https://ssl.ptlogin2.qq.com/ptqrshow?appid=501004106&e=0&l=M&s=5&…

文件路径 文件路径就是文件在电脑(服务器)中的位置,表示文件路径的方式有两种:相对路径和绝对路径. Windows由于使用 斜杆/ 作为DOS命令提示符的参数标志了,为了不混淆,所以采用 反斜杠\ 作为路径分隔符.所以目前windows系统上的文件浏览器都是用 反斜杠\ 作为路径分隔符. (1)浏览器地址栏网址使用 斜杆/ : (2)windows文件浏览器上使用 反斜杠\ : (3)出现在普通字符串中的路径,如果代表的是windows文件路径,则使用 斜杠/ 和 反斜杠\ 是一样的:如果代表的…

'*************************************************************************'**模 块 名:自写函数VB6 STUFF函数 和 VB.net 2010 STUFF函数 详解'**说    明:蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰-魔灵 | 郭卫-icecept'**创 建 人:浴火凤凰-郭卫'**日    期:2015年10月10日  23:13:55'**修 改 人:浴火凤凰-郭卫'**日    期:'**描   …

'*************************************************************************'**模 块 名:VB.net 2010下关联与程序图标设置 '**说 明:蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰-魔灵 | 郭卫-icecept'**创 建 人:浴火凤凰-郭卫'**日 期:2015年10月15日 22:12:59'**修 改 人:浴火凤凰-郭卫'**日 期:'**描 述:QQ:493405998 | 微信\旺旺:icecept…

'************************************************************************* '**模 块 名:VB.net 2010 AndAlso,OrElse和And,Or的区别 '**说    明:蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰-魔灵 | 郭卫-icecept '**创 建 人:浴火凤凰-郭卫 '**日    期:2015年10月11日  12:00:13 '**修 改 人:浴火凤凰-郭卫 '**日    期: '**描…

原文地址CodeProject 目录 介绍 “二进制-十进制”相互转换 十进制->二进制 二进制->十进制 OR运算符(按位或|) OR运算符工作方式 FlagsAttribute AND运算符(按位与&) XOR运算符(按位异或^) XOR运算符工作方式 使用XOR交换两变量值的算法 使用XOR加密 NOT运算符(按位非~) 左移运算符(<<) 左移运算符工作方式 使用左移运算符计算2的幂 右移运算符(>>) 右移运算符工作方式 使用右移运算符计算x/(2的幂…

释义 &(Ampersand)是英语单字and之代表符号,亦可用作中文中的“和”.“与”之代表符号.这个符号源于拉丁文的et的连写. 可读做 ampersand,即 "and per se and",意思是 "and [the symbol which] by itself [is] and". '+'常见运算方法(几乎所有高级语言)1)数字 + 数字 :执行数学加法.例如 11 + 22 = 332)字符串 + 字符串 : 字符串连接.例如 "1…

Module Module1 Sub Main() Dim s1 As String = "我是真的" Dim s2 As String = "我不是真的" Dim s3 As String Dim start As DateTime start = DateTime.Now To mx Then s3 = s1 Else s3 = s2 End If Next Console.WriteLine((DateTime.Now - start).TotalMillis…

创建文件 Dim strFile As String = String.Format("C:\ErrorLog.txt", DateTime.Today.ToString("dd-MMM-yyyy")) File.AppendAllText(strFile, String.Format("Error Message in Occured at-- {0}{1}", DateTime.Now, Environment.NewLine)) 第一句话的…

如今,Microsoft Office PowerPoint在我们日常生活中的应用已经很广泛了,利用Microsoft Office PowerPoint不仅可以创建演示文稿,还可以在互联网上召开面对面会议.远程会议或在网上给观众展示演示文稿等.那么,怎样做出有趣.生动.美观的PowerPoint文档呢?其中一个很好的选择就是向文档中插入视频.这样可以使读者更好地理解文档的内容,增加读者的兴趣.那么开发者如何通过编程的方式来实现这一功能呢?本文将给大家分享如何使用免费版PowerPoint组件—…

Microsoft Roslyn是微软.NET“编译器即服务(Compiler as a Service)”的主要产品,它提供了开放的编译器API,并为源代码产生.分析和重构提供了新一代的语言对象模型.Anders Hejlsberg在BUILD 2013大会上提到,C# 6.0的编译器将使用Roslyn实现,这一实现会包含在Visual Studio 2013之后的产品中.根据Anders的描述,C# 6.0的编译器将采用C#开发,从而告别现有的本机代码(native code)的实现方式,“…

1.调用GetAsyncKeyState()获取指定按键的状态,GetActiveKey()检索指定范围内的按键状态 2.调用keybd_event()可合成一次击键事件,通常两次击键事件间需要设定时间间隔 3.调用MapVirtualKey()获取指定按键的硬件扫描码,传入keybd_event()第二个参数就可以对DirectInput有效. Public Class ImitateKeyClass Private Declare Sub keybd_event Lib "user32&qu…