Visual Basic

How to Display a dynamic image in Crystal Report

2011-10-25T01:46:00.000-07:00

In making the report, we often need an image that can be updated automatically in theCrystal Report reports. Though crystal report (apparently) does not provide facilities fordisplaying images that we can dynamically update when running the program.

Here's my Make an example program that can load a particular image and display it incrystal report based on data that exist in the crystal report. This program uses a databaserental.mdb. One table contains tbmember table, one field tbmember is a photo, whichcontains the image file name from the member concerned.
The goal now is to program, every combo code is selected, the image that will appear will be tailored to existing images in the photo field in the table tbmember.

Requirement:
Visual Basic, Crystal Report 7, Ms Access 2000

Link download:

Download

How to Register OCX untuk Visual Basic

2011-10-25T01:43:00.001-07:00

Perhaps for those of you who frequent visual basic wrestling in the world would often meetwith files or *. dll *. ocx. Sometimes the *. ocx file that we use often can not register on our computer. This time I want to give to register *. ocx files that are often a problem of demand.

Here's How to register *. ocx for VB 6 on Windows XP normally, copy the ocx file intowindows/system32, then on run type in regsvr32 "nama_file_ocx.ocx", but it is not valid in Windows 7 you will find the message "The module 'nama_file_ocx 'was loaded but the callto DllRegisterServer failed with error code 0x80070005 ". Differences in the windows 7user account that is on privilage you who do not have the right to do the registrationmanually. Ways that can be done on windows 7 is as follows:

Click start type cmd in the search field, to display / search command prompt on windows 7
After appearing cmd in the results column, right-click cmd file, and select run as administrator.
Once the command prompt dialog box appears with the path c: / windows/system32, typeregsvr32.exe "nama_file_ocx.ocx" (without quotes) hit enter.

Ocx file then you will be registered by windows 7

IF structure in visual basic

2011-10-23T08:06:00.001-07:00

Our posts this time a little flash back to back again iah

I discussed this time regarding STRUCTURE IF in visual basic. Basically known in visual basic with 3 kinds of IF (branching), including:

     IF SIMPLE
     IF compound
     NESTED IF
Where IF SIMPLE is a branching where there are only two conditions / syarat.Dan if implemented to the listing in VB as follows:

     IF condition 1 then

         statement 1

     else

        statement 2

     END IF

Listed above can be in it as a condition of branching logic where there are 2 pieces of the terms, and the formula itself can IF we write IF = N-1. "N" as many conditions / terms.

The second IF is IF compound, where there are conditions / terms of more than 2 conditions / requirements. And if implemented to listingnya as follows:

     IF condition 1 then

         statement 1

     2 elseif condition then

        statement 2

     else

     statement 3

     END IF

And the third IF NESTED IF, where there are conditions within the state ... if implemented NESTED IF structure as follows:

     IF condition 1 then

         statement 1

           IF condition 1 then

               statement 1

           else

               statement 2

           END IF

     else

        statement 2

           IF condition 1 then

               statement 1

           else

               statement 2

           END IF

     END IF

Now that's some branching structure in Visual Basic, listing above is not fixated on penulisannya.Semua you can still develop and modify as needed.

Since writing the above is only a benchmark for the write format percabangan.kurang more shall I apologize ...

An easy way to design forms in VB

2011-10-23T00:41:00.000-07:00

There are times where you need to arrange the layout of your objects, such as CommandButton, right in the middle of the Form. Or sometimes you want to create multiple objects the same size. Of course this is rather difficult to do when done by hand. Actually there is a facility to help you do it. Ie by Form Editor.
First, You need to display the Form Editor toolbar first. It's easy. On the View menu> click Toolbars> click Form Editor.
A new toolbar will be displayed.

Time to try! Add 3 pieces TextBox arbitrarily.

First, we create a third the size of the TextBox to be equal, and Text1 as a benchmark. Previously, we have to select (read: vote) Text1, Text2, and Text3. The trick, while pressing the Ctrl key, select Text1, Text2, and Text3. (NOTE: The last object you select will be the benchmark to change the size or position, so Text1 must be selected last.)

In the Form Editor toolbar, click the arrow on the button and select Make Same Size Both.

The result will be as follows:

Next, we will create the third position is to be the same TextBox. In the Form Editor toolbar, click the arrow on the Align, and then click Lefts.

The result will be as follows:

You also can adjust the spacing between the TextBox. For example: Click on Format> Vertical Spacing> Remove. The result will be as follows:

After that, you can add back (click Format> Vertical Spacing> Increase), it looks like:

You can also make a third TextBox is right in the middle. It's easy. In the Form Editor, click the arrow at the Center, choose Center Vertically.

The result will appear as follows:

It could also be coupled with the Center Horizontally.

How? Practical is not it? You do it manually rather than. :D

Always on top form vb

2011-10-23T00:32:00.000-07:00

Well this time associated with ajah fitur2 what can be done by the Visual Basic ...
One of them is creating the form is always visible (On Top). Perhaps you have experienced in making applications where there is a Main Menu form, and when we open another form, positions will be affected by the form menu, when we move to focus its main menu form.
Actually there are two ways to overcome it.
1. Adding VbModal or the number "1" (without the quotes) after the listing form call

    Example:

    Sub cmd1_click ()

    Form1.show VbModal

    End Sub
Above listing serves to position the Form1 focused regardless of any other form.
Diataspun listings still occasionally run into some difficulties, because we can only work in one form alone .... So how we'll be working with some of the forms without having to formnya affected by the main menu?? Surprised smile
Ajah calm, follow these steps: Winking smile
Typing the following listing in Module:

    Private Const HWND_BOTTOM = 1

  Private Const HWND_NOTOPMOST = -2

  Private Const HWND_TOP = 0

    Private Const HWND_TOPMOST =-1

  Private Const SWP_NOMOVE = & H2

  Private Const SWP_NOSIZE = & H1

    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

  Private Declare Function GetActiveWindow Lib "user32" () As Long

    Public Sub TopTerusEuy (hwnd As Long)

    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, + SWP_NOMOVE SWP_NOSIZE

    End Sub

    Public Sub GaJadiTop (hwnd As Long)

    SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, + SWP_NOMOVE SWP_NOSIZE

    End Sub
Well now living calls out how??
Typing this listing on event Form Load

    Private Sub Form1_Load ()

    TopTerusEuy Me.Hwnd

    End Sub
If you want to make it back to normal:

    Private Sub Form1_Load ()

    GaJadiTop Me.Hwnd

    End Sub
The difference is caught it .... So if we want to use VbModal, listingnya simple but a lot of shortcomings, and typing in listings on the stationery calling form.
If for that use Module, listingnya rather long, but more flexible in using it ... And typing Listingnya in writing on the listing form that we want to show.
Completed if there is an error deh live longer sesaikan ajah, or you can ask in the comment box.
Sample Source Cade can you Download after Koment Box Filled 5 Comments

How to make a link in VB

2011-10-23T00:29:00.000-07:00

Here's what I mean is that if we click a link on the application form, it will immediately open a browser to a web address that we inginkan.Dalam this course you often see the use of links in the application - computer applications.

Quite easy and simple ... Follow these steps:

First you add a fruit label on the form, then

Both of you make ShellExecute function ... like the one below ...

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long

Dim X As String

Three steps to create a procedure that is you guys (for easy dialing) ....

Sub open ()

As Long Dim link

link = ShellExecute (0, vbNullString, X, "", "", vbNormalFocus)

end Sub

Then you type on the label Click event on the form and enter the following code:

Private Sub Label1_Click ()

X = "http://indrawan21.blogspot.com" its web address is up to you ...

Open call

end Sub

And the final step, ie create evek when the mouse enters or in label page, then the writing on the label changes color (like evek hover on the web site link)

Private Sub Label1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.ForeColor = vbBlue

end Sub

Quite up there ajah tutorial how to create links within this vb ...

You try to run and test results, if there are any questions please leave a message (click on the comments, or via fb comment)

Download Sample :

Download Source code

Creating Glass Button With Icon (VB)2011-06-23T01:05:00.000-07:00

Surely there are comrades who like to experience when adding the image in any CommandButton icon ga compatible, usually appears ERROR message "Invalid Picture Format"

 Well here there is little permasalahana solution of the above error, typing the following listing in the form:

Listing01Option Explicit

02 

03Private Type RECT

04    Left As Long

05    Top As Long

06    Right As Long

07    Bottom As Long

08End Type

09 

10Private Type BUTTON_IMAGELIST

11    himl As Long

12    rc As RECT

13    uAlign As Long

14End Type

15 

16Private Declare Function ImageList_Create Lib "comctl32.dll" (ByVal cx As Long, ByVal cy As Long, ByVal Flags As Long, ByVal cInitial As Long, ByVal cGrow As Long) As Long

17Private Declare Function ImageList_AddIcon Lib "comctl32.dll" (ByVal himl As Long, ByVal hIcon As Long) As Long

18Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long

19Private Declare Function PrivateExtractIconsW Lib "user32.dll" (ByVal lpIconPath As Long, ByVal Iconindex As Long, ByVal cxIcon As Long, ByVal cyIcon As Long, ByVal phIcon As Long, ByVal piIconId As Long, ByVal nIcons As Long, ByVal lFlags As Long) As Long

20Private Declare Function LoadImage Lib "user32.dll" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

21Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

22 

23Private Enum Align

24    IconLeft = 0

25    IconRight = 1

26    IconTop = 2

27    IconBottom = 3

28    IconCenter = 4

29End Enum

30 

31Private Sub CommandButtonIcon1(sLibName As String, objCommandButton As CommandButton, lSize As Long, lIndex As Long, IconAlign As Align, Optional lLeftMargin As Long = 0, Optional lTopMargin As Long = 0, Optional lRightMargin As Long = 0, Optional lBottomMargin As Long = 0)

32 

33    Const ILC_MASK As Long = &H1

34    Const ILC_COLOR32 As Long = &H20

35 

36    Const LR_DEFAULTCOLOR As Long = &H0

37    Const LR_DEFAULTSIZE As Long = &H40

38 

39    Const BCM_SETIMAGELIST As Long = &H1602&

40 

41    Dim hImage As Long

42    Dim hIcon As Long

43    Dim BI As BUTTON_IMAGELIST

44 

45    hImage = ImageList_Create(lSize, lSize, ILC_COLOR32 Or ILC_MASK, 1, 1)

46    Call PrivateExtractIconsW(StrPtr(sLibName), lIndex, lSize, lSize, VarPtr(hIcon), VarPtr(0), 1, LR_DEFAULTCOLOR Or LR_DEFAULTSIZE)

47    Call ImageList_AddIcon(hImage, hIcon)

48    Call DestroyIcon(hIcon)

49 

50    With BI

51        .rc.Left = lLeftMargin

52        .rc.Top = lTopMargin

53        .rc.Right = lRightMargin

54        .rc.Bottom = lBottomMargin

55        .himl = hImage

56        .uAlign = IconAlign

57    End With

58 

59    Call SendMessage(objCommandButton.hwnd, BCM_SETIMAGELIST, 4, BI)

60 

61End Sub

62 

63Private Sub CommandButtonIcon2(objCommandButton As CommandButton, lSize As Long, sIconResName As String, IconAlign As Align, Optional lLeftMargin As Long = 0, Optional lTopMargin As Long = 0, Optional lRightMargin As Long = 0, Optional lBottomMargin As Long = 0)

64 

65    Const IMAGE_ICON = 1

66 

67    Const LR_LOADFROMFILE As Long = &H10

68    Const LR_LOADMAP3DCOLORS As Long = &H1000

69    Const LR_SHARED As Long = &H8000&

70 

71    Const ILC_MASK As Long = &H1

72    Const ILC_COLOR32 As Long = &H20

73 

74    Const BCM_SETIMAGELIST As Long = &H1602&

75 

76    Dim hImage As Long

77    Dim hIcon As Long

78    Dim BI As BUTTON_IMAGELIST

79 

80    hImage = ImageList_Create(lSize, lSize, ILC_COLOR32 Or ILC_MASK, 1, 1)

81    hIcon = LoadImage(App.hInstance, sIconResName, IMAGE_ICON, lSize, lSize, IIf(True, LR_SHARED Or LR_LOADMAP3DCOLORS, LR_LOADFROMFILE))

82    Call ImageList_AddIcon(hImage, hIcon)

83    DestroyIcon hIcon

84 

85    With BI

86        .rc.Left = lLeftMargin

87        .rc.Top = lTopMargin

88        .rc.Right = lRightMargin

89        .rc.Bottom = lBottomMargin

90        .himl = hImage

91        .uAlign = IconAlign

92    End With

93 

94    Call SendMessage(objCommandButton.hwnd, BCM_SETIMAGELIST, 4, BI)

95 

96End Sub

Well now let you add CommandButton in vb Form, and Image Select Gloss or Vista Style.Dan Change a Graphic Style.

 then the result will be as shown below :

Sumber : http://cakcaknaplok.wordpress.com

Download

Addressing the general Error in VB

2011-06-19T02:45:00.000-07:00

Trap error can occur when your application is running. Some trap errors can also occur during development or when the lawyer's compile an application that you created. You can test out and respond to errors that occur using the statement "On Error" and the Err object. Error numbers in the range 1 to 1000 have been provided for use in Visual Basic in the later period.

List of error trap is a trap under the common errors that occur in Visual Basic coupled with the common errors associated with a certain common objects, while for some other object, such as ADO, or DataGrid, or the other, has its own error traps list, separate from the list below error trap.

------------------------------------------------------------------------
Code   Message/Description
------------------------------------------------------------------------
3  Return without GoSub 
5  Invalid procedure call 
6  Overflow 
7  Out of memory 
9  Subscript out of range 
10  This array is fixed or temporarily locked 
11  Division by zero 
13  Type mismatch 
14  Out of string space 
16  Expression too complex 
17  Can't perform requested operation 
18  User interrupt occurred 
20  Resume without error 
28  Out of stack space 
35  Sub, Function, or Property not defined 
47  Too many DLL application clients 
48  Error in loading DLL 
49  Bad DLL calling convention 
51  Internal error 
52  Bad file name or number 
53  File not found 
54  Bad file mode 
55  File already open 
57  Device I/O error 
58  File already exists 
59  Bad record length 
61  Disk full 
62  Input past end of file 
63  Bad record number 
67  Too many files 
68  Device unavailable 
70  Permission denied 
71  Disk not ready 
74  Can't rename with different drive 
75  Path/File access error 
76  Path not found 
91  Object variable or With block variable not set 
92  For loop not initialized 
93  Invalid pattern string 
94  Invalid use of Null 
97  Can't call Friend procedure on an object that is not an 
instance of the defining class 
98  A property or method call cannot include a reference to 
a private object, either as an argument or as a return value 
260  No timer available 
282  No foreign application responded to a DDE initiate 
285  Foreign application won't perform DDE method or operation 
286  Timeout while waiting for DDE response 
287  User pressed Escape key during DDE operation 
288  Destination is busy 
290  Data in wrong format 
293  DDE Method invoked with no channel open 
294  Invalid DDE Link format 
295  Message queue filled; DDE message lost 
296  PasteLink already performed on this control 
297  Can't set LinkMode; invalid LinkTopic 
298  System DLL 'dll' could not be loaded 
320  Can't use character device names in file names: 'item' 
321  Invalid file format 
322  Canâ€™t create necessary temporary file 
325  Invalid format in resource file 
326  Resource with identifier 'item' not found 
327  Data value named not found 
328  Illegal parameter; can't write arrays 
335  Could not access system registry 
336  Component not correctly registered  
337  Component not found 
338  Component did not run correctly 
339  Object server 'item' not correctly registered 
or not found (Error 339) 
340  Control array element 'item' doesn't exist 
341  Invalid control array index 
342  Not enough room to allocate control array 'item' 
343  Object not an array 
344  Must specify index for object array 
345  Reached limit: cannot create any more controls on this form 
360  Object already loaded 
361  Can't load or unload this object 
362  Can't unload controls created at design time 
363  ActiveX control 'item' not found 
364  Object was unloaded 
365  Unable to unload within this context 
366  No MDI form available to load 
367  Can't load (or register) ActiveX control: 'item' 
368  The file 'item' is out of date. This program requires 
a newer version 
369  Operation not valid in a DLL 
370  The ActiveX Designer's Type Information does not match 
what was saved. Unable to Load 
371  The specified object can't be used as an owner form for Show() 
378  'item' cannot be set while loading 
379  You can't put a Default or Cancel button on a Property Page 
380  Invalid property value 
381  Invalid property array index 
382  'Item' property cannot be set at run time 
383  'Item' property is read-only 
384  A form can't be moved or sized while minimized or maximized 
385  Must specify index when using property array 
387  'Item' property can't be set on this control 
388  Can't set Visible property from a parent menu 
389  Invalid key 
393  'Item' property cannot be read at run time 
394  'Item' property is write-only 
395  Cannot use separator bar as menu name for this control 
396  'Item' property cannot be set within a page 
397  Can't load, unload, or set Visible property for 
top level menus while they are merged 
398  Client Site not available 
399  You can't put a Default or Cancel button on a User Control 
unless its DefaultCancel property is set 
400  Form already displayed; can't show modally 
401  Can't show non-modal form when modal form is displayed 
402  Must close or hide topmost modal form first 
403  MDI forms cannot be shown modally 
404  MDI child forms cannot be shown modally 
405  Unable to show modal form within this context 
406  Non-modal forms cannot be displayed in this host application 
from an ActiveX DLL 
419  Permission to use object denied 
422  Property not found 
423  Property or method not found 
424  Object required 
425  Invalid object use 
426  Only one MDI Form allowed 
427  Invalid object type; Menu control required 
428  Popup menu must have at least one submenu 
429  License information for this component not found. You do not have 
an appropriate license to use this functionality in the 
design environment 
430  Class doesn't support Automation 
432  File name or class name not found during Automation operation 
438  Object doesn't support this property or method 
440  Automation error 
442  Connection to type library or object library for remote process 
has been lost 
443  Automation object doesn't have a default value 
444  Method not applicable in this context 
445  Object doesn't support this action 
446  Object doesn't support named arguments 
447  Object doesn't support current locale setting 
448  Named argument not found 
449  Argument not optional or invalid property assignment 
450  Wrong number of arguments or invalid property assignment 
451  Object not a collection 
452  Invalid ordinal 
453  Specified not found 
454  Code resource not found 
455  Code resource lock error 
457  This key is already associated with an element of this collection 
458  Variable uses a type not supported in Visual Basic 
459  This component doesn't support the set of events 
460  Invalid Clipboard format 
461  Method or data member not found 
462  The remote server machine does not exist or is unavailable 
463  Class not registered on local machine 
480  Can't create AutoRedraw image 
481  Invalid picture 
482  Printer error 
483  Printer driver does not support specified property 
484  Problem getting printer information from the system. 
Make sure the printer is set up correctly 
485  Invalid picture type 
486  Can't print form image to this type of printer 
490  Top-level or invalid menu specified as PopupMenu default 
520  Can't empty Clipboard 
521  Can't open Clipboard 
523  The data binding DLL, 'item', could not be loaded 
524  'item' 
525  Data Access Error 
527  The given bookmark was invalid 
536  Could not lock the database 
537  Could not access the desired Column 
541  Could not lock the database 
542  The row has been deleted since the update was started 
545  Unable to bind to field: 'item' 
672  DataObject formats list may not be cleared or expanded 
outside of the OLEStartDrag event 
673  Expected at least one argument 
674  Illegal recursive invocation of OLE drag and drop 
675  Non-intrinsic OLE drag and drop formats used with 
SetData require Byte array data. GetData may return  
more bytes than were given to SetData 
676  Requested data was not supplied to the DataObject 
during the OLESetData event 
688  Failure in AsyncRead 
689  PropertyName parameter conflicts with the PropertyName 
of an AsyncRead in progress 
690  Can't find or load the required file urlmon.dll 
693  An unknown protocol was specified in Target parameter 
735  Can't save file to TEMP directory 
744  Search text not found 
746  Replacements too long 
31001  Out of memory 
31004  No object 
31018  Class is not set 
31027  Unable to activate object 
31032  Unable to create embedded object 
31036  Error saving to file 
31037  Error loading from file

Sumber : Bang Masino

How to Make the installer in VB

2011-06-11T22:31:00.000-07:00

Creating an Installer course very helpful so that you create a program that can run on computers that do not have Visual Basic 6 in it. Plus, you also need to add an ActiveX-ActiveX support programs. Well, there is an innate Visual Basic program that serves to make the installer file. This installer file will create a package that contains your program with ActiveX package needed to run your program.

Here are the steps ...

1. Click Start > All Programs > Microsoft Visual Studio 6 > Micorosft Visual Studio 6 > Package & Deployment Wizard.

2. Will appear as follows:

3. Click Browse, select the location of Project that you will create the installer. Then click Package. If the confirmation message appears, click Compile. Will appear like this:

4.Select Standard Setup Package, then click Next. Will appear as follows :

5. Select your location to save the installer file. Click on Next. (if the confirmation dialog box appears, just click OK). Will appear like this...:

6. Put a check on all files related to your application! (I recommend, to check everything. If you include the database and not in the list, just click the Add button.) Click Next. Next will come the following display:

7. Just select Single Cab, and then click Next. Next will appear like this:

8. Type the title of your program! Click on Next. Will appear as the following.

9. You are required to determine the location of the shortcut

10. on the Start Menu. Simply click next....
11. Click next. Will appear as follows:...

11. Click next. Will appear as follows:

13. Name the script, and then click Finish.

14. Done! Just click Close!

You can see the results ..
.
Good luck ;D

An easy way to design forms in VB

2011-06-09T08:24:00.000-07:00

There are times where you need to arrange the layout of your objects, such as CommandButton, right in the middle of the Form. Or sometimes you want to create multiple objects the same size. Of course this is rather difficult to do when done by hand. Actually there is a facility to help you do it. Ie by Form Editor.

First, You need to display the Form Editor toolbar first. It's easy. On the View menu> click Toolbars> click Form Editor.

A new toolbar will be displayed.

Time to try! Add 3 pieces TextBox arbitrarily.

First, we create a third the size of the TextBox to be equal, and Text1 as a benchmark. Previously, we have to select (read: vote) Text1, Text2, and Text3. The trick, while pressing the Ctrl key, select Text1, Text2, and Text3. (NOTE: The last object you select will be the benchmark to change the size or position, so Text1 must be selected last.)

Pada toolbar Form Editor, klik tanda panah pada tombol Make Same Size dan pilihlah Both.

The result will be as follows:

Next, we will create the third position is to be the same TextBox. In the Form Editor toolbar, click the arrow on the Align, and then click | Lefts.

The result will be as follows:

You also can adjust the spacing between the TextBox. For example: Click on Format> Vertical Spacing> Remove. The result will be as follows:

After that, you can add back (click Format> Vertical Spacing> Increase), it looks like :

You can also make a third TextBox is right in the middle. It's easy. In the Form Editor, click the arrow at the Center, choose Center Vertically.

Hasilnya akan tampak sebagai berikut:

The result will appear as follows:

How? Practical is not it? You do it manually instead and thought-ngiranya. :D

Upload / Share File (DropBox)

2011-06-07T21:56:00.000-07:00

There is little info for you guys who like to upload to upload files to the share to umum.Disini no place hosting a good one (I think), knp good?

Because each file that we want to share to the public or for download to the public, sometimes interrupted by iklan2 that appears when going to download.

Well for those who want to interfere with the ga iklan2 page, you can list hereThe name hosting is DropBox

Register your account there, for free account you get 2Gb.lumayan space, a 2Gb account, if a lot of my account live tuh wrote how it would multiply :D