ZXL工作室

今天上网找了一些关于Login控件的使用资料，遇到一个问题：Login控件本身具有不为空的验证，就是说当用户没有输入用户名或密码的时候，直接点提交不会通过验证，会在用户名和密码的后面出现“*”，意为必须输入的项。我想，如果我不想让它显示“*”，让显示“必须填写用户名”和“必须填写密码”的提示信息。上网找了半天，就是找不到我想要达到的效果。最后还是自己研究出来了。显示“*”是Login控件本身具备的

第一卷  （本卷每题2分，共70分） 1．在VB.NET中每个对象都有三个基本要素，它们是     。A．对象的名称、值和所属类             B．对象的属性、事件和方法C．对象的大小、存储方式和内容      D．对象的访问方法、存储方式和名称2．数学函数式Sin25°写成VB.NET表达式是     。

1新建一个wpf程序Mainwindows的windowstyle属性为None设置background为Transparent 2向窗体中加入一个rectamgle控件 3选择fill属性进行背景颜色的填充 4在属性中设置RadiusX和RadiusY数值为9 5再次向窗体中加入一个rectamgle控件作为拖动的控制栏并重命名控件名为TitleBar并填充一种颜

简单的实现代码：Public Class Form1 Private PerCounter As System.Diagnostics.PerformanceCounter Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.L

在窗体中添加一个ContextMenu1控件 Imports System.Drawing.Drawing2DPublic Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New(

Module Module1 Sub Main() ' 定义3个字符串变量 Dim str1, str2, str3 As String '给str1，str2付初值 str1 = "Hello" : str2 = "World" Console.WriteLine("方法Concat")

VB Byte数组转换为字符串(兼容中英文)，VB Byte数组转换为字符串(中英文)，VB Byte数组转换为字符串(兼容中文)，VB Byte数组转换为字符串(兼容英文)，VB Byte转换为字符串，VB Byte转换字符串，VB Byte转字符串，VB Byte字符串，VB Byte，VB 两个Byte二进制值 合并转换为中文，VB 两个Byte二进制值 转换为中文，VB 两个Byte二进制

Function GetFile(FileName As String) As StringDim i As Integer, s As String, BB() As ByteIf Dir(FileName) = "" Then Exit Functioni = FreeFileReDim BB(FileLen(FileName) - 1)Open FileName For

最近要做一个电子书,利用的是FlashPaper将Word文件转换为SWF格式文件，因为需要在光盘上自动运行，所以在网上寻找Swf 转 Exe文件的工具，找到JerkFlashV2，试了一下，才发现该工具转换成的EXE文件是基于Flash Player 6.0的，有许多Flash Palery的新功能无法使用，找了一下其它的工具，均为基于6.0版本的，无奈，只好动手自己编写一个。:)点此下载E

vb实现EXE生成EXE2008年04月17日 星期四 16:02生成EXE的源码：（客户端资源文件101）Const file_size = 20480Private Sub Form_Load()Dim snum As LongDim sinfo As String, sappend As ByteOpen App.Path & "\" &

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long '创建一个椭圆，该椭圆与X1，Y1和X2，Y2坐标点确定的矩形内切Private Declare Function SetW

Imports Emgu.CVImports Emgu.CV.StructureImports Emgu.UtilImports System.Windows.FormsImports System.DrawingModule Module1 Sub Main() 'Load the image from file Dim img As Ne

最近在看数据库书籍时，需要通过vs2010的 server exploer 配置连接局域网的sql server 2000数据库，但提示要求安装sql server 2005及以上版本，经Google搜索，发现很多人和我一样遇到此类问题，但貌似微软确实在vs2010上不再支持sql server 2000了。其实主要是vs2010把OLE DB的连接方式放到了项里面，大家都找不到“原来熟悉

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String str = InputBox("123") If

xml文件： Oberon's Legacy Corets, Eva 5.95 code：Imports System.XmlPublic Class Form1 Dim xmlDoc As New XmlDocument() Private Sub Button1_Click(ByVal sender As S

Dim tDim start As BooleanPrivate Sub Command1_Click() If start = False Then t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3) start = True End If Timer1.Enabled = True Com

Imports Emgu.CVImports Emgu.CV.StructureImports Emgu.CV.UtilPublic Class Form1Dim capturez As Capture = New CaptureDim imagez1 As Image(Of Bgr, Byte)Dim imagez2 As Image(Of Bgr, Byte)Dim rota

Imports Emgu.CVImports Emgu.CV.UtilImports Emgu.CV.StructurePublic Class Form1Dim capturez As Capture = New CapturePrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.Even

Imports System.NetImports System.Text.EncodingPublic Class Form1 Dim publisher As New Sockets.UdpClient(0) Dim subscriber As New Sockets.UdpClient(2000) Private Sub Timer1_Tick_1(ByV

Public Class Form1 Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long) 'LEFTDOWN = &H2 'LEFTUP = &H4 'RIGHTDOWN = &H8 'RIGHTUP = &H10 'MIDDL

Public Class Form1 Dim z As New zxl Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Form2.Show() z.setvalue("123", "123", 90

Public Class Form1 WithEvents s As New Student Dim ss As New Student Private Sub s_Fail(ByVal frm As Form, ByVal str As String) Handles s.Fail Dim g As Graphics = frm.CreateG

VS2010中新建一个空解决方案。VS2010中对程序开发的管理是，一个解决方案下面有多个项目。在命名空间等方面，项目是独立的。不过有时候多个项目是互相关联的。例如一个项目可能是做一个dll的，另一个项目是需要调用这个dll的功能的主程序，那么就可以把2个项目放到同一个解决方案中。2个项目会共享解决方案的Debug|Release文件夹，并且还可以设定项目之间的依赖

学生成绩考核 统计系统vb.net 输入 学生 考号：姓名：班级：成绩：插入到文本存储库中 读取文本中的信息 搜索固定信息 显示 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button

n*n矩阵  以对角线实现矩阵转换 Public Class Form1 Dim a(4, 4) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, t

处理一年中的月份天数的输出知识点 ：数组+交错 Module Module1 Sub Main() Dim calendars()() As Double = New Double(11)() {} Dim month As Integer Dim days As Integer Dim dayV

定义枚举类型 ：Enum 类型名称 成员名=表达式（常量）End Enum 创建一个一星期的 枚举类型 ： Module Module1 Enum days sunday = 0 monday = 1 yuesday = 2 wednesday = 3 thursda

通过vb控制台 输出九九乘法表 Module Module1 Sub Main() Dim i, j, temp As Short For i = 1 To 15 Console.Write(" ") Next Console.WriteLine("九九乘法表") Conso

编写一个记录学生信息和学习成绩的程序学号（num）、姓名（name）、性别（sex）、年龄（age）、住址（address）、学习成绩（mark）学习成绩分为5们 分数分别为95,90,112,94,90 Module Module1 Public Structure student Dim num As Integer Dim name

vb 控制台程序通过输入带符号位的8位二进制数计算 原码 反码 补码写的方法 可能有些麻烦 但是能得到 理论上的效果 ！如果有高手知道什么好方法希望给我邮件共享一下771948524zxl@gmail.com Module Module1 Sub Main() Dim i, j, a, b, c, d, e, f, g, h, k, m As

百元买百鸡： 设 花一百元买鸡  公鸡：5元  母鸡：3元  小鸡1元3只求买鸡的方案 java代码： import java.util.*;public class helloworld { public static void main(String[] args) { int count=0; for(int i=0;i<20;i++){ for(i

画圆 圆心为（350,250）半径为200Public Class Form1 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim gr As Graphics = Me.CreateG

分析文本1.txt文件 内容：000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-----------------1111111111111111111111111111111111111111111111

Private Sub Command1_Click()Me.RefreshDim x As Integer For x = 2 To 100 If x Mod 2 = 0 Then If prime(x) = 1 Then Print x & " 这是偶数" End If

在做抓取的时候，不知道什么原因，无法直接抓到，于是想到调用迅雷下载，这个是网站上找的，没想到还很好用，我只是使用了简单的下载文件功能。【导读】本文详细讲解了使用VB.NET编程来调用讯雷下载文件的过程和步骤。内容包括：创建讯雷调用对象、使用讯雷调用对象查询下载任务信息、迅雷平台接口函数定义等。 首先确保电脑已经安装讯雷，打开VS.NET 点击菜单：项目->添加引用->COM->

模块中的声明：Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Declare Function SetComputerName Lib "kernel32" Alias

步骤一：打开VB建立一个窗体Form步骤二：将窗体背景颜色设为：&HFF0000步骤三：将下面代码粘贴到程序中：Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" () Declare Function GetWindowLong Lib "user32" Alias "GetWi

vb.net调用vbsfile= chr(34)+ app.path+ "\GB.vbs"+chr(34)shell "wscript.exe " + vbsfile关于vb6.0 调用/运行 VBS 几种方式：一：Private Declare Function ShellExecute Lib "shell32.dll" Alias "She

简写代码写入：Imports System.IO.FileDim disco As System.IO.FileDim scrivi As System.IO.StreamWriterscrivi=disco.AppendText("c:\data.txt")scrivi.WriteLine(TextBox1.Text)scrivi.WriteLine(TextBo

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim plist() As Process Dim ppo As System.Diagnosti