• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Problema risolto Visual Basic 2010 come modificare il form

Pacifico

Nuovo utente
Autore del topic
14 Settembre 2011
8
41
Miglior risposta
0
Gent.mi,

con Visual Basic 2010, gradirei se è possibile modificare il form con il codice.

Ho usato il seguente codice che permette di avere, inserendo i parametri, il form da rettangolare che è di default in circolare o ovale:

> Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

> Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Nel Form1_Load......:

> hr& = CreateEllipticRgn(0, 0, 100, 200)
> dl& = SetWindowRgn(Me.hWnd, hr, True)

Noto un problema che non viene accettato (che sono sottolineati):

> hr&, dl&, Me.hWnd, hr

Gentilmente potete suggerire per poter ripristinare?

Anticipatamente ringrazio.

Domenico.
 
Riferimento: Visual Basic 2010 come modificare il form

Quello è vecchio codice per VB6 non per VB.NET.

Se proprio lo vuoi usare per il VB.NET allora deve essere

Codice:
Perfavore, Entra oppure Registrati per vedere i codici!

Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
 
Ultima modifica:
Riferimento: Visual Basic 2010 come modificare il form

Gent.mo Nothing,

ringrazio della gentilezza e tempestività.

Ho inserito il codice che mi hai consigliato:

> Dim dl As Long ....................................,

mi viene sottolineto TRUE.

Gentilmente se puoi suggerire.

Fiducioso, saluto.

Domenico.
 
Riferimento: Visual Basic 2010 come modificare il form

Che vuol dire "viene sottolineato TRUE"?

L'hai inserito nel Form_Load ?
 
Riferimento: Visual Basic 2010 come modificare il form

Gent.mo Nothing,

ringrazio della cortesia.

In effetti l'ho inserito nel Form_Load

> Dim dl As Long = SetWindowRgn(Me.Handle, CreateEllipticRgn(0, 0, 100, 200), True) <

Quando avvio, mi esce la finestra di errore:

> Errore durante la compilazione......... < e noto che sull'ultima voce del codice inserito, la voce True viene sottolineato anche con il colore rosso.

Auguro che sia comprensibile e mi scuso.

Domenico.
--------------- AGGIUNTA AL POST ---------------
Gent.mo Nothing,

mi scuso, funziona OK, ho sbagliato a copiare il codice nella Public Class.

Ringrazio della gradita disponibilità.

Domenico.
 
Ultima modifica:
Riferimento: Visual Basic 2010 come modificare il form

Sposto e rinomino come risolto ;)