Search - Form1 - CodeBus

[CSharp] Form1

Description: 用c#语言开发的LED显示的程序,可用于测试程序中的数据显示!-with language development LED Display procedures can be used to test procedures for the data show!
Platform: | Size: 1520 | Author: 林进 | Hits:

[DirextX] dx9vbu_progressive_mesh

Description: .x 檔案解檔秀圖可增加3D平面，使物件表面更加平滑 \\wolf.x \\wolfmap.jpg \\form1.vb \\moduleX.vb \\moduleX2.vb \\assemblyInfo.vb- x 鈻
Platform: | Size: 426017 | Author: 李世民 | Hits:

[Other resource] DBSCAN-csharp

Description: 程序说明： Form1.cs是应用聚类算法DBSCAN (Density-Based Spatical Clustering of Application with Noise)的示例，可以通过两个参数EPS和MinPts调节聚类。 DBSCAN.cs是实现文件，聚类算法的进一步信息请参考“数据挖掘”或者相关书籍聚类示例数据来自于sxdb.mdb，一个Access数据库。已知问题及进一步改进建议：问题：dbscan.cs行64，SortedList不支持重复键，因此若两个数据点距离相同则无法加入集合解决：采用人为减小一个微小量，使数据点距离不同且不影响聚类结果上一解决方案的问题：减小double.Epsilon微小量无助于使SortedList认为两点距离以及不同解决：采用一个指数增长的微小量，连续重试直至SortedList认为距离已经不同进一步改进建议：可能通过double的强制转型为内存中的byte类型（假设double型转为8个byte）然后最后一个byte减去0x01可比较漂亮的解决问题，但是……呵呵，C#中我不会这个操作也可以自己实现一个SortedList，支持重复键，当然，这，好像是微软应该做的工作了 ^_^ Eric Guo <http://www.cnblogs.com/ericguo/> -procedures : Form1.cs clustering algorithm is applied DBSCAN (Density-Based Spati cal Clustering of Application with Noise) example, two parameters can EPS and MinPts regulation clustering. DBSCAN.cs is, the clustering algorithm further information please refer to the "data mining" or books related data clustering example from sxdb.m db, an Access database. Known issues and recommendations for further improvement : : 64 dbscan.cs OK, SortedList not support duplicate keys, and therefore if two data points from the same pool can not be solved by adding : By applying an artificially reduce a small amount of data from different points without clustering results on the impact of a solution of the problem : double.Epsilon small decrease in the amount of helplessness to make that 2:00 S
Platform: | Size: 15653 | Author: Huang Yi | Hits:

[Other resource] 200651320141760-7087

Description: 做Java开发朋友一定知道Eclipse编辑器,这是它的VB实现. Form1.Label1 = kk.vkCode & \\\":\\\" & kk.scanCode & \\\":\\\" & kk.Time \\ If wParam = 256 Then Myfunc = 1: Exit Function \\ endif wParam 的按键值可以在程序运行中测试中找到。-doing Java development friends will know that the Eclipse editor, This is the VB. Form1.Label1 = kk.vkCode
Platform: | Size: 342009 | Author: 广泛大 | Hits:

[Compress-Decompress algrithms] Form1.Designer

Description: 用vb求解的一个数据库项目，可以帮助求解该类问题-used for a database that can help solve the problem
Platform: | Size: 1681 | Author: 柳絮 | Hits:

[Hook api] windowshook

Description: 程序“刷刷刷”能够在键盘光标所在的文本输入框中自动输入文字（中文、英文、数字），程序使用C++ Builder 5开发。首先运行C++ Builder并新建工程。接着，将窗体Form1的边框样式（BorderStyle）改为对话框（bsDialog），并放置相应控件如图所示，其中SS_Text是一个用于输入文本的TComboBox控件，当然，你可以在设计阶段预先向控件中输入一些常用文本，以便程序运行后可以直接选用 txtTimes和txtDelay为TEdit控件，分别用于控制发送文本的次数和间隔时间；chkAutoWrap和chkAutoNumber为TCheckBox控件，决定是否在每一行发送文本后面自动回车或自动加记数编号以上控件包含在Panel1（TPanel控件）中 Timer1用于控制循环发送和时间间隔。 -procedures "Shuas hua" at the keyboard cursor to where the automatic text input box to enter text (in Chinese, English, ), using procedures developed C Builder 5. First Builder and C run the new project. Then, Form Form1 to the rim style (BorderStyle) to the dialog (bsDialog ), and displayed as shown in the corresponding controls, SS_Text which is a text for the importation of TComboBox Controls, of course, You can pre-design stage to control the importation of some commonly used Chinese version procedures to be able to directly use txtTimes and txtDelay to TEdit control. were used to control the frequency of this text and spacing; chkAutoWrap and chkAutoNumber to TCheckBox Controls decide whether to send the text to one round behind automatic or automatic counting numbers inc
Platform: | Size: 2033 | Author: andson | Hits:

[Internet-Network] IE4SinkDemo

Description: unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX type TForm1 = class(TForm) WebBrowser1: TWebBrowser procedure FormCreate(Sender: TObject) procedure WebBrowser1DocumentComplete(Sender: TObject const pDisp: IDispatch var URL: OleVariant) procedure DemoEventSink(Sender: TObject) private public { Public declarations } end var Form1: TForm1 implementation {$R *.dfm} uses MSHTML, IEDocHostUIHandler, IEConst, DHTMLEvent,comobj var FDocHostUIHandler: TDocHostUIHandler //为屏蔽右键菜单 Doc : IHTMLDocument2 Element : IHTMLElement EventSink: TDHTMLEvent procedure TForm1.FormCreate(Sender: TObject) begin FDocHostUIHandler := TDocHostUIHandler.Create //为屏蔽右键菜单 EventSink := TDHTMLEvent.Create WebBrowser1.Navigate(GetCurrentDir + \\index.htm ) end procedure TForm1.DemoEventSink(Sender: TObject) Var S:String -unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls. SHDocVw, StdCtrls. ActiveX type TForm1 = class (TForm) WebBrowser 1 : TWebBrowser procedure FormCreate (Sender : TObject) procedure WebBrowser1DocumentComp lete (Sender : TObject const pDisp : IDispatch var URL : OleVariant) procedure DemoEventSink (Sender : TObject) private public (Public declaration s) var end Form1 : TForm1 implementation ($ R *. dfm) uses MSHTML , IEDocHostUIHandler, IEConst, DHTMLEven t, comobj var FDocHostUIHandler : TDocHostUIHandler / / right-click menu for shielding Doc : IHTMLDocument2 Element : IHTMLElement EventSink : TDHTMLEvent procedure TForm1.FormCreate ( Sender : TObject) begin FDocHostUIHandler : = TDocHostUIHandler.Create / / right-clic
Platform: | Size: 19867 | Author: sbl | Hits:

[Editor] make_ssreader

Description: 本文件概要介绍组成 Example 应用程序的每个文件的内容。 Example.vcproj 这是使用应用程序向导生成的 VC++ 项目的主项目文件。它包含生成该文件的 Visual C++ 的版本信息，以及有关使用应用程序向导选择的平台、配置和项目功能的信息。 Example.cpp 这是主应用程序源文件。包含用于显示窗体的代码。 Form1.h 包含窗体类的实现和 InitializeComponent() 函数。 AssemblyInfo.cpp 包含用于修改程序集元数据的自定义属性。-document outlining the composition of Example applications of each document. Example.vcproj This the application to use the wizard generated VC project's main project documents. It contains the document generation Visual C version. and the use of application guide choice of platform, configuration and information on the functions of the project. Example.cpp This is the main application source files. Forms for the show included the code. Form1.h Form category includes the realization and InitializeComponent () function. AssemblyInfo.cpp contains revised procedures for the collection of metadata from the definition of attributes.
Platform: | Size: 29731 | Author: 李楠 | Hits:

[GDI-Bitmap] picture_jiema

Description: 这个源代码具体功能是如何获取图像解码器信息。分别用到 Example.vcproj，Example.cpp，Form1.h，AssemblyInfo.cpp，各自功能详见内部文件。-the source code is specific functional image decoders access information. Example.vcproj were used, Example.cpp, Form1.h. AssemblyInfo.cpp, as detailed in the respective functional internal documents.
Platform: | Size: 12788 | Author: 李楠 | Hits:

[Other resource] 20070508

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: 922 | Author: hasia | Hits:

[Web Server] web

Description: 实现从远程服务器下载文件到指定的客户度目录，直接放入到web页面即可使用。参考以下脚本 <script language=\"javascript\"> function downFile(){ var serverUrl serverUrl = document.form1.serverUrl.value alert(serverUrl) window.document.UserControl1.downloadFileByActive(serverUrl,\"c:\\\\内蒙古自治区国民经济和社会.doc\") } </script>  <OBJECT ID=\"UserControl1\" CLASSID=\"CLSID:F65549B3-26A0-4FA0-B9A6-70B28BB17427\" CODEBASE=\"downloadByActive.CAB#version=1,0,0,0\"> </OBJECT> <body> <form name = \"form1\" > <％String str =request.getRequestURL().toString() str = str.substring(0,str.indexOf(\"plan\")) +\"内蒙古自治区国民经济和社会.doc\" out.println(str) ％> <input type=\"hidden\" name=\"serverUrl\" value=\"<％=str ％>\"> <br> <input type=\"file\" name=\"downloadfile\"> <br> <input type=\"button\" name=\"but\" value=\"下载\" onclick=\"downFile()\"> </form>
Platform: | Size: 3793950 | Author: theodore liu | Hits:

[OS program] j017.ZIP

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
Platform: | Size: 2578 | Author: 黄玉林 | Hits:

[OS program] g043_xjcode.ZIP

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
Platform: | Size: 15265 | Author: 黄玉林 | Hits:

[OS program] g044_laba_deluxe.ZIP

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
Platform: | Size: 27475 | Author: 黄玉林 | Hits:

[OS program] group.ZIP

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
Platform: | Size: 15472 | Author: 黄玉林 | Hits:

[CSharp] csmtp

Description: 开发SMTP、POP3协议通信程序邮件发送 Form1 的摘要说明。
Platform: | Size: 4640 | Author: 宋开莉 | Hits:

[Delphi VCL] tuxinxianshijiqiao

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
Platform: | Size: 220916 | Author: dyming | Hits:

Category

Source Code

Web/Internet

Develop Tools

Document

Other

Search in results

OS

Platform

Language

File Type

Search list