Read about simple vb programs with source code, The latest news, videos, and discussion topics about simple vb programs with source code from alibabacloud.com
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
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
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
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.