simple vb programs with source code

Transparent | source code VB. NET writes a picture processing component, uses in the ASP to process the picture, the scale picture, proportional scaling, has the fixed proportion background the scaling, plus the translucent logo small icon and so on function. Dimage.vb Imports System Imports System.Drawing Public Class Dimage #Region "COM GUIDs" ' These GUIDs

Go directly to the source code for your reference. ''' ''' Is rendered with different symbrs based on the value of a field.''' ''' ''' Private sub uniquerender (byval pgeofeaturelayer as igeofeaturelayer)Dim puniquerender as iuniquevaluerenderer = new uniquevaluerendererDim pcolor as icolorDim pcmsymbol as icharactermarkersymbolDim pfont as stdole. ifontdisp = new stdole. stdfontPfont. Name = "ESRI default

The company writes a registration machine for a web application. The basic principle is that after the user runs the software, he gets an application code and the company gives the corresponding registration code based on the application code, the Web software can be used normally only after matching. There is no problem on another machine, but after I run the so

1. Use js files to make IE support png images transparent. Pngfix. js: Copy codeThe Code is as follows: var arVersion = navigator. appVersion. split ("MSIE ") Var version = parseFloat (arVersion [1]) Function fixPNG (myImage) { If (version> = 5.5) (version { Var imgID = (myImage. id )? "Id = '" + myImage. id + "'":"" Var imgClass = (myImage. className )? "Class = '" + myImage. className + "'":"" Var imgTitle = (myImage. title )? "Title = '" + myImage

1. Use js files to make IE support png images transparent.Pngfix. js:Copy codeThe Code is as follows:Var arVersion = navigator. appVersion. split ("MSIE ")Var version = parseFloat (arVersion [1])Function fixPNG (myImage){If (version> = 5.5) (version {Var imgID = (myImage. id )? "Id = '" + myImage. id + "'":""Var imgClass = (myImage. className )? "Class = '" + myImage. className + "'":""Var imgTitle = (myImage. title )?"Title = '" + myImage. title + "

Idea: Simulate data submission, analyze and send back data, and extract results. Let's first look at this website, Http://www.developerfusion.com/tools/convert/csharp-to-vb/ [convertor] Open the [convertor] site and use firebug or httpwatch to analyze the post data. refer to the following for details.Code: Automaticclipboard = ture automaticclipboard = false code ="+

Add a webpage hyperlink in VB (source code) 'Create a label The labelSource code: Private declare function ShellExecute lib "shell32.dll" alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long

/gb2312/. NET Development Resource CenterHttp://51aspx.com51aspx focus on source code downloadHttp://www.cs-open.comOpen source resource OverviewHttp://sourceforge.net/Source code Holy LandHttp://www.codejia.com/Source

vb| Solution | Source code | perform |shell| asynchronous | sync Arisisi Web development team in the development of an ASP system, the need for Synchronous call VB (DLL) to perform shell operations, ASP->VB (DLL)->shell->rar.exe synchronous execution exe file. Because the s

Use the vb script to automatically add the computer to the domain source code. Most enterprise users are added to the domain for security management. The added domain is more convenient for management. But how can new devices or users quickly join known domains? It's easy to look at the Code: Set objShell = wscript. c

Three systems have been created after the job is upgraded. One is the clever computing during the exhibition in February, and the other is the student information management system during the summer vacation, the other is the charging system of the just-completed IDC. Three systems, three packages and three releases, and three complimentary source code. I wonder if you have any? But fortunately, with this c

The following method creates a bubble prompt box with AE: 1. VB. NET source code ''' ''' Create a text prompt box ''' ''' ''' ''' ''' ''' ''' ''' Public Function createtextelement (byval X as double, byval y as double, byval ptextstring as string, optional byval Ppoint as ipoint = nothing, optional byval pgraphicscontainer as igraphicscontainer = nothing) as iel

Most enterprise users are added to the domain for security management. The added domain is more convenient for management. But how can new devices or users quickly join known domains? It's easy to look at the Code: Set objshell = wscript. createobject ("wscript. shell ") strcomputer = ". "dim wshnetworkdim strcomputerset wshnetwork = wscript. createobject ("wscript. network ") strdomain = wshnetwork. userdomainif strdomain = "hupu" thenmsgbox "this c

SelectSelect Case status Case "-1" Status = "unupdated Ticket No." Case "0" Status = "query exception" Case "1" Status = "no record" Case "2" Status = "on the way" Case "3" Status = "dispatching" Case "4" Status = "accepted" Case "5" Status = "REJECTED" Case "6" Status = "Troubleshooting" Case "7" Status = "invalid ticket" Case "8" Status = "timeout ticket" Case "9" Status = "failed to sign" Case Else Status =" unknown express status "End Selectkdcx = StatusEnd Function 　　 The

Source: http://www.codeproject.com/KB/grid/Datagridview_BackImage.aspx VB. NET Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> Imports System. componentmodel Imports System. Drawing Public Class Userdatagridview Inherits Windows. Forms. datagridview Private M_image As Image Public Sub

Using AE to create a bubble prompt box-VB. Net source code Address: http://www.cnblogs.com/wall/archive/2008/07/17/1244942.html ''' ''' Create a text prompt box ''' ''' ''' ''' ''' ''' ''' ''' Public FunctionCreateTextElement (ByVal x As Double, ByVal y As Double, ByValPTextString As String, Optional ByVal pPoint As IPoint = Nothing,Optional ByVal pGraph

Open-source: Calculate a fingerprint for each document and then use the fingerprint for similarity calculation TextsimilarityTextsimilarity =New Textsimilarity(); // ComputingArticleSimilarity fingerprint IntSourcefingerprint = textsimilarity. calctextfingerprint (sourcetext ); IntDestfingerprint = textsimilarity. calctextfingerprint (desttext ); // Compare the fingerprint to calculate the similarity VaRSimilarity = textsimilarity. calcte

Event implementation code: Copy Code code as follows: Private Sub Mquit_click () Text1.Text = "" End End Sub Private Sub Mnew_click () Text1.Text = "" Form1.caption = "not named" End Sub Private Sub Mopen_click () Commondialog1.showopen Frame = Commondialog1.filename If fname Form1.caption = fname Text1.Text = "" Open fname for Input a

Event implementation code: Copy codeThe Code is as follows: Private Sub mQuit_Click () Text1.Text = "" End End Sub Private Sub mNew_Click ()Text1.Text = ""Form1.Caption = "unnamed"End SubPrivate Sub mopen_Click ()CommonDialog1.ShowOpenFrame = CommonDialog1.FileNameIf fname Form1.Caption = fnameText1.Text = ""Open fname For Input As #1B = ""Do Until EOF (1)Line Input #1, nextlineB = B nextline Chr (13) C

How to debug the installation source of VB 6 ProgramSetup1.vbp Method 1: 1. Run setup.exe, which has been packaged. Do not make other responses! For example: D:/myvbp/setupdemo/package/setup.exe ("XX installer" appears at this time. Do not make any response) 2. Use VB6 to open/vb98/wizards/PDWizard/setup1/setup1.vbp Modify the setup1.vbp project attributes => Generate => the command line parameter