Location:
Search - Form1
Search list
Description: Visual Basic 6.0可以通过调用API函数格式化一个磁盘，无论是软盘还是硬盘。
打开一个新的项目(工程1) ，如果你没有更改过缺省模式，那么Visual Basic 6.0会自动添加一个form1文件，在form1上添加一个命令控件，将下面的代码拷入。
Option Explicit
Private Declare Function SHFormatDrive Lib"shell32"( ByVal Hend AS Long,ByVal Drive AS Long,ByVal FormatID AS Long,ByVal Options AS Long) as Long
Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean)
dim lngReturn As Long
if (blnQuickFormat) then
lngReturn= SHFormatDrive(0,intDrive,0&,1&)
else
lngReturn= SHFormatDrive(0,intDrive,0&,0&)
end if
end Sub
Private Sub Command1_Click()
call FormatDisk(0,True)
End Sub
运行此程序。
注意FormatDisk函数的第一个变量很重要，他的值是0,1,2时代表格式化的分别是：A、B、C盘。
-Visual Basic 6.0 can be seen by calling the API function formatting a disk, both floppy disk or hard disk. Open a new project (a project), if you have not changed the default mode, Then Visual Basic 6.0 will automatically add a <form documents, <form in adding a control order, it is copyed into the code below. Option Explicit Private Declare Function SHFo rmatDrive Lib "shell32" (ByVal Hend AS Long, ByVal Drive AS Long, ByVal FormatID AS Long, ByVal Options AS Long) as Long Private Sub Forma tDisk (intDrive as integer, blnQuickFormat as Boolean) dim lngReturn As Lo Vi if (blnQuickFormat) then lngReturn = SHForm atDrive (0, intDrive, 0
Platform: |
Size: 1024 |
Author: hasia |
Hits:
Description: ERSION 5.00
Begin VB.Form Form1
BackColor = &H8000000A&
Caption = "http://go.163.com/~tianyige"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 窗口缺省
Begin VB.CommandButton cmdExit
Caption = "退出(&E)"
Height = 375
Left = 2880
TabIndex = 6
Top = 360
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "转换(&A)"
Height = 375
-ERSION 5.00Begin VB.Form Form1 BackColor =
Platform: |
Size: 2048 |
Author: 黄玉林 |
Hits:
Description: VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4485
ClientLeft = 60
ClientTop = 345
ClientWidth = 5385
LinkTopic = "Form1"
ScaleHeight = 4485
ScaleWidth = 5385
StartUpPosition = 3 Windows Default
Begin VB.CommandButton Command6
Caption = "删除键值"
Height = 375
Left = 3960
TabIndex = 6
Top = 3840
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "删除值"
Height = 375
Left = 2160
TabIndex = 5
Top = 3840
Width = 1335
End
Begin VB.CommandButton Command4
-VERSION 5.00Begin VB.Form Form1 Caption =
Platform: |
Size: 15360 |
Author: 黄玉林 |
Hits:
Description: ERSION 5.00
Begin VB.Form laba
AutoRedraw = -1 True
BackColor = &H00FFFFFF&
BorderStyle = 1 Fixed Single
ClientHeight = 3540
ClientLeft = 2340
ClientTop = 1815
ClientWidth = 4935
ControlBox = 0 False
Icon = "FORM2.frx":0000
LinkTopic = "Form1"
MaxButton = 0 False
MinButton = 0 False
Picture = "FORM2.frx":08CA
ScaleHeight = 3540
ScaleWidth = 4935
ShowInTaskbar = 0 False
StartUpPosition = 2 CenterScreen
Begin VB.Timer Endlife
Enabled = 0 False
Interval = 1
-ERSION 5.00
Begin VB.Form laba
AutoRedraw =-1 True
BackColor = &H00FFFFFF&
BorderStyle = 1 Fixed Single
ClientHeight = 3540
ClientLeft = 2340
ClientTop = 1815
ClientWidth = 4935
ControlBox = 0 False
Icon = "FORM2.frx":0000
LinkTopic = "Form1"
MaxButton = 0 False
MinButton = 0 False
Picture = "FORM2.frx":08CA
ScaleHeight = 3540
ScaleWidth = 4935
ShowInTaskbar = 0 False
StartUpPosition = 2 CenterScreen
Begin VB.Timer Endlife
Enabled = 0 False
Interval = 1
Platform: |
Size: 27648 |
Author: 黄玉林 |
Hits:
Description: VERSION 5.00
Begin VB.Form laba
AutoRedraw = -1 True
BackColor = &H00FFFFFF&
BorderStyle = 1 Fixed Single
ClientHeight = 3540
ClientLeft = 2340
ClientTop = 1815
ClientWidth = 4935
ControlBox = 0 False
Icon = "FORM2.frx":0000
LinkTopic = "Form1"
MaxButton = 0 False
MinButton = 0 False
Picture = "FORM2.frx":08CA
ScaleHeight = 3540
ScaleWidth = 4935
ShowInTaskbar = 0 False
StartUpPosition = 2 CenterScreen
Begin VB.Timer Endlife
Enabled = 0 False
Interval = 1
Left = 3240
Top = 3360
-VERSION 5.00
Begin VB.Form laba
AutoRedraw =-1 True
BackColor = &H00FFFFFF&
BorderStyle = 1 Fixed Single
ClientHeight = 3540
ClientLeft = 2340
ClientTop = 1815
ClientWidth = 4935
ControlBox = 0 False
Icon = "FORM2.frx":0000
LinkTopic = "Form1"
MaxButton = 0 False
MinButton = 0 False
Picture = "FORM2.frx":08CA
ScaleHeight = 3540
ScaleWidth = 4935
ShowInTaskbar = 0 False
StartUpPosition = 2 CenterScreen
Begin VB.Timer Endlife
Enabled = 0 False
Interval = 1
Left = 3240
Top = 3360
Platform: |
Size: 15360 |
Author: 黄玉林 |
Hits:
Description: 开发SMTP、POP3协议通信程序
邮件发送
Form1 的摘要说明。-The development of SMTP, POP3 mail protocol communication procedures of the summary of Form1.
Platform: |
Size: 5120 |
Author: 宋开莉 |
Hits:
Description: 图形显示技巧,这是其中一段代码
procedure TForm1.Button1Click(Sender: TObject)
var
newbmp:TBitmap
i,bmpheight,bmpwidth:integer //推拉
begin
newbmp:=TBitmap.Create
newbmp.Width:=image1.Width
newbmp.Height:=image1.Height
bmpheight:=image1.Height
bmpwidth:=image1.Width
for i:=0 to bmpheight do
begin
newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i))
form1.Canvas.Draw(120,100,newbmp)
end
newbmp.free
end -Graphical display techniques, this is one piece of code procedure TForm1.Button1Click (Sender: TObject) var newbmp: TBitmap i, bmpheight, bmpwidth: integer// push-pull begin newbmp: = TBitmap.Create newbmp.Width: = image1.Width newbmp.Height : = image1.Height bmpheight: = image1.Height bmpwidth: = image1.Width for i: = 0 to bmpheight do begin newbmp.Canvas.CopyRect (Rect (0, bmpheight-i, bmpwidth, bmpheight), image1.Canvas, Rect (0,0, bmpwidth, i)) form1.Canvas.Draw (120100, newbmp) end newbmp.free end
Platform: |
Size: 220160 |
Author: dyming |
Hits:
Description: A星算法
A星算法\MSSCCPRJ.SCC
A星算法\Form1.frm
A星算法\工程1.vbp
A星算法\Module1.bas
A星算法\工程1.vbw
A星算法\工程1.exe
#
# Files
# 7
-A Star Algorithm A Algorithm MSSCCPRJ.SCCA Star Star Star Form1.frmA algorithm algorithm algorithm works 1.vbpA stars Module1.basA stars algorithm works 1.vbwA stars algorithm works 1.exe## Files# 7
Platform: |
Size: 10240 |
Author: liuchao |
Hits:
Description: 进程调度（高响应比优先调度） -Process Scheduling (high response ratio scheduling priority) process scheduling (high response ratio scheduling priority)
Platform: |
Size: 2048 |
Author: jiangran |
Hits:
Description: 应用程序 : VCDotnet 项目概况
========================================================================
应用程序向导已为您创建了这个 VCDotnet 应用程序。
此文件包含组成 VCDotnet 应用程序
的每个文件的内容摘要。
VCDotnet.vcproj
这是用应用程序向导生成的 VC++ 项目的主项目文件。
它包含有关生成此文件的 Visual C++ 版本的信息，以及
有关使用应用程序向导选择的
平台、配置和项目功能的信息。
Form1.cpp
这是主应用程序源文件。
包含显示窗体所需的代码。
Form1.h
包含窗体类和 InitializeComponent() 函数的实现。
AssemblyInfo.cpp
包含用于修改程序集元数据的自定义属性。
/////////////////////////////////////////////////////////////////////////////
其他标准文件:
StdAfx.h, StdAfx.cpp
这些文件用于生成名为 Win32.pch 的预编译头(PCH)文件
以及名为 StdAfx.obj 的预编译类型文件。
/////////////////////////////////////////////////////////////////////////////
-err
Platform: |
Size: 1219584 |
Author: coco |
Hits:
Description: 使用正则表达式实现数据验证
using System
using System.Drawing
using System.Collections
using System.ComponentModel
using System.Windows.Forms
using System.Data
using System.Text.RegularExpressions
namespace RegexT
{
/// <summary>
/// Form1 的摘要说明
#region Windows 窗体设计器生成的代码
/// <summary>
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。-Use regular expressions for data validation using System using System.Drawing using System.Collections using System.ComponentModel using System.Windows.Forms using System.Data using System.Text.RegularExpressions namespace RegexT (/// <summary>///Form1 s a summary of# region Windows Form Designer generated code///<summary>///Designer to support the required method- Do not use a code editor to modify///the contents of this method.
Platform: |
Size: 9216 |
Author: 000 |
Hits:
Description: vb程序画同心圆一圈一圈的，每一圈兜色彩不同很好看的如同彩绣的铺垫-vb procedure painting of concentric circles around a circle, each circle a different color pocket as a good look at the bedding彩绣
Platform: |
Size: 4096 |
Author: 踏雪 |
Hits:
Description: C#界面皮肤源码（带大量皮肤素材）
1. 先把IrisSkin2.dll文件添加到当前项目引用(解决方案资源管理器->当前项目->引用->右键->添加引用 ，找到IrisSkin2.dll文件.....之后就不用我说了吧^_^).IrisSkin2.dll文件最好放在当前项目\bin\Debug文件中.
2. 然后把IrisSkin2.dll文件添加到vc2005的工具箱：右键->选择项->浏览找到IrisSkin2.dll文件(文件最好放在当前项目\bin\Debug文件中）按确定，控件就添加到工具箱中了.然后把工具箱中新添加的 SkinEngine控件拖到当前项目中。
3. 把皮肤目录中的.ssk文件复制到当前项目\bin\Debug文件中，（ssk文件可选）.
4. 再在项目中调用.ssk皮肤文件。例：
namespace 当前项目
{
public partial class Form1 : Form
{
public Form1() //当前项目的构造器中调用皮肤文件
{
InitializeComponent()
this.skinEngine1.SkinFile = "DiamondBlue.ssk" //DiamondBlue.ssk可换用皮肤目录中你喜欢的.ssk文件
//(把.ssk复制到当前项目\bin\Debug目录中)
}
...
...
...
Platform: |
Size: 3798016 |
Author: |
Hits:
Description: 随机数
= =
解决不了1-100排列。-Random Number = = 1-100 order can not be resolved.
Platform: |
Size: 1024 |
Author: fa |
Hits:
Description: fir,iir滤波器设计以及显示，vb代码，但还有些不知道什么问题的bug-fir, iir filter design and display, vb code, but some do not know what the problem bug
Platform: |
Size: 9216 |
Author: chen |
Hits:
Description: 串口通讯，用于显示周期波形以及周期的微分-Serial communications, used to display waveform cycle and the cycle of differential
Platform: |
Size: 2048 |
Author: chen |
Hits:
Description: 介 绍 了如 何 修 改 及 创 建 注 册 表 项 的功 能-How to introduce changes and create a registry key function
Platform: |
Size: 1024 |
Author: kl007 |
Hits:
Description: The neuro-fuzzy software for identification and data analysis has been implemented in the MATLAB language ver. 4.2.
The software trains a fuzzy architecture, inspired to Takagi-Sugeno approach, on the basis of a training set of N (single) output-(multi) input samples.
The returned model has the form
1) if input1 is A11 and input 2 is A12 then output =f1(input1,input2)
2) if input1 is A21 and input 2 is A22 then output =f2(input1,input2)
看不懂，据高手说，非常有用。-The neuro-fuzzy software for identification and data analysis has been implemented in the MATLAB language ver. 4.2. The software trains a fuzzy architecture, inspired to Takagi-Sugeno approach, on the basis of a training set of N (single) output-( multi) input samples.The returned model has the form1) if input1 is A11 and input 2 is A12 then output = f1 (input1, input2) 2) if input1 is A21 and input 2 is A22 then output = f2 (input1, input2) can not read, according to experts said that very useful.
Platform: |
Size: 51200 |
Author: beyonddoor |
Hits:
Description: 知识竞赛多人参与，计分控制，倒计时，多媒体试题播放，文字试题与答案-Knowledge of people took part in competitions, scoring control, countdown, multimedia player questions, text questions and answers
Platform: |
Size: 8192 |
Author: liuzihao |
Hits:
Description: 此代码为C#2005.net中数据库的绑定与显示，并且报表的生成的代码，是十分通用的，相信会对大家有帮助的-This code for the C# 2005.net bindings in the database and display, and statements of the generated code is very common, believe it will help everyone
Platform: |
Size: 1024 |
Author: 尹俊杰 |
Hits:
«
1
2
3
4
5
67
8
9
10
11
...
29
»