UUM Library materials are grouped by subjects of the item and arranged by call number according to Library of Congress Classification System. Perpustakaan online ugm. You should easily learn the right way to find your library materials from our collection using or master the library collection arrangement from. As a user you have the responsibility to return the items before or on the due date to avoid fine. Renewing Borrowed Items Accordingly every items that were check out from our collections possess a borrowing period based on users privileges or items category.

1. Membuat Aplikasi Dengan Visual Basic
2. Membuat Program Bengkel Dengan Visual Basics
3. Cara Membuat Program Dengan Visual Basic

Informasi Pengolahan Dan Rental Kendaraan Pada Bengkel Maju Jaya Menggunkan Program Visual Studio 2012” 1.Membuat design untuk form login.

I have a welcome to my application as it loads up, but then need to have that form close and login form open when the continue button is hit.

My code:

Membuat Aplikasi Dengan Visual Basic

When I click the button it only closes the welcome form and then ends the application. If you can help thanks! :)

8 Answers

You can set the properties of the project to select 'When last form closes' in the shutdown mode dropdown

Update:-

'Project' menu -> 'YourApp' Properties.. -> Application Tab

find : 'Shutdown Mode'

Change from

'When startup form closes' --> 'When last form closes'

There is a shutdown mode project property. This controls the application lifecycle.

Make sure you set this to 'When last form closes'

Then your code should work as you expect.

What is happening is that you have that setting set to shutdown 'when startup form closes', so by doing Me.Close on the startup form, this shuts down the application, all code after this line is effectively ignored.

If your Welcome Form isn't your main form, you just need to put your Me.Close after your Login.Show()

Try this.

On your welcome form when closing:

On your login form when in loading event:

This will try to hide the first form and load the second form. And when second form is completely loaded it will try to close the first form.

Make sure that on your Application Tab under your Project properties the option is set to 'When last form closes'.

If you close sub main form from application, your application will close. However, you can close and open other forms if they are not the sub main form. Maybe you can just hide it instead.

You just need to put Hide() instead of Close :)

So for example, in the project im doing right now..

protected by user557846 Aug 9 '16 at 2:07

Thank you for your interest in this question. Because it has attracted low-quality or spam answers that had to be removed, posting an answer now requires 10 reputation on this site (the association bonus does not count).
Would you like to answer one of these unanswered questions instead?

Not the answer you're looking for? Browse other questions tagged vb.netvb.net-2010 or ask your own question.

Bentuk form sesuai dengan gambar

Bosan dengan tampilan form yang berbentuk persegi? Ingin mengubahnya dengan bentuk lain yang lebih dinamis? Simak penjelasannya berikut ini!

Ubah BorderStyle form menjadi 0-None, tempatkan sebuah PictureBox, namai dengan “picMainSkin”. Tambahkan sebuah Module, ketik kode di bawah:

Declare Function DeleteObject Lib “gdi32” _

(ByVal hObject As Long) As Long

Declare Function GetPixel Lib “gdi32” _

(ByVal hDC As Long, _

ByVal X As Long, ByVal Y As Long) As Long

Declare Function CreateRectRgn Lib “gdi32” _

(ByVal x1 As Long, _

ByVal y1 As Long, _

ByVal x2 As Long, _

ByVal y2 As Long) As Long

Declare Function CombineRgn Lib “gdi32” _

(ByVal hDestRgn As Long, _

ByVal hSrcRgn1 As Long, _

ByVal hSrcRgn2 As Long, _

ByVal nCombineMode As Long) As Long

Public Declare Function _

ReleaseCapture Lib “user32” () As Long

Declare Function SetWindowRgn Lib “user32” _

(ByVal hwnd As Long, _

ByVal hRgn As Long, _

ByVal bRedraw As Boolean) As Long

Declare Function CreateRoundRectRgn Lib “gdi32” _

(ByVal x1 As Long, _

ByVal y1 As Long, _

ByVal x2 As Long, _

ByVal y2 As Long, _

ByVal X3 As Long, _

ByVal Y3 As Long) As Long

Public StartX!

Public StartY!

Public Function BentukDaerah(picSkin As PictureBox) As Long

Dim X As Long, Y As Long

Dim AwalGaris As Long

Dim DaerahPenuh As Long

Dim GarisDaerah As Long

Dim GarisDalam As Boolean

Dim AwalDaerah As Boolean

Dim hDC As Long

Dim Lebar As Long

Dim Tinggi As Long

hDC = picSkin.hDC

Lebar = picSkin.Width / Screen.TwipsPerPixelX

Tinggi = picSkin.Height / Screen.TwipsPerPixelY

AwalDaerah = True: GarisDalam = False

X = AwalGaris = 0

Y = 200

For Y = 0 To Tinggi – 1

For X = 0 To Lebar – 1

If GetPixel(hDC, X, Y) = vbWhite Or X = Lebar Then

If GarisDalam Then

GarisDalam = False

GarisDaerah = CreateRectRgn(AwalGaris, Y, X, Y + 1)

If AwalDaerah Then

DaerahPenuh = GarisDaerah

AwalDaerah = False

Else

CombineRgn DaerahPenuh, DaerahPenuh, GarisDaerah, 2

DeleteObject GarisDaerah

End If

Karafun studio full crack torrent. End If

Else

If Not GarisDalam Then

GarisDalam = True

AwalGaris = X

End If

End If

Next

Next

BentukDaerah = DaerahPenuh

End Function

Public Sub PindahDonk(ctl As Object, Button As Integer, _

X As Single, Y As Single)

If Button = 1 Then

ctl.Left = IIf(X < StartX, ctl.Left – (StartX – X), _

ctl.Left + (X – StartX))

ctl.Top = IIf(Y < StartY, _

ctl.Top – (StartY – Y), ctl.Top + (Y – StartY))

End If

End Sub

Ketik kode di bawah ini pada form:

Option Explicit

Private Sub cmdClose_Click()

Unload Me

End Sub

Private Sub Form_Load()

Dim WindowRegion As Long

‘

With Me.picMainSkin

.ScaleMode = 3

.Move 0, 0

.DrawWidth = 10

.FillStyle = 0

.FillColor = vbRed

Me.picMainSkin.Circle (105, 105), 90, vbYellow

.FillColor = vbBlue

Me.picMainSkin.Circle (400, 105), 40, vbYellow

.FillStyle = 1

.ForeColor = vbYellow

Membuat Program Bengkel Dengan Visual Basics

Me.picMainSkin.Line (105, 10)-(400, 60.5)

Me.picMainSkin.Line (105, 200)-(400, 150)

Width = .Width

Height = .Height

End With

WindowRegion = BentukDaerah(Me.picMainSkin)

SetWindowRgn Me.hwnd, WindowRegion, True

End Sub

Private Sub picMainSkin_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

StartX = X

StartY = Y

End If

End Sub

Private Sub picMainSkin_MouseMove(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

PindahDonk Me, Button, X, Y

Cara Membuat Program Dengan Visual Basic

End Sub

Tampilan form ketika dijalankan:

Silakan ambil contoh kode sumbernya di:

http://www.4shared.com/file/71705289/6512a690/34_Menyesuaikan_bentuk_form.html