[VB] Ridimensione

[DarCas]

Voveo fare una precisazione cmq:

Lo script che mi hai dato te mi permette di dimensionare la textarea al momento dell'apertura del form, ma se mai dovessi poi modificare le dimensioni del form, la textarea non si adatta..

Io l'ho risolto (ad intuito) in questo modo:

sub Form_Resize()
    textArea.Width=Me.Width
    textArea.Height=Me.Height
    textArea.top=(Me.Height/2)-(textArea.Height/2)
    textArea.left=(Me.Width/2)-(textArea.Width/2)
End Sub

Ecco, ora il problema è risolto al 100%

[ladyBlu]

bravo, hai fatto bene.

[DarCas]

Son due giorni che programmo in VB, che poi è identico alle ASP, quindi sto raccimolando le differenze di codice più palesi, mentre per il resto ci sono già!

Il comando form_resize() me lo sono inventato, e l'ho azzeccato..

Che che ho! :gren:

[ladyBlu]

l'importante è che hai risolto.

[DarCas]

Ha senso in VB fare questo?

Private Sub Command1_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "/mdb/database.mdb;PWD=xxxxx"

        SQL = "SELECT * FROM Discorsi"
        rs.Open SQL, conn, 3, 3

            Tema.Caption = rs.Fields("Tema")

        rs.Close
        Set rs = Nothing

    conn.Close
    Set conn = Nothing
End Sub

[ladyBlu]

il percorso del DB deve avere il backslash e non lo slash

Private Sub Command1_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & 
App.Path & "\mdb\database.mdb;PWD=xxxxx"

        SQL = "SELECT * FROM Discorsi"
        rs.Open SQL, conn, 3, 3

            Tema.Caption = rs.Fields("Tema")

        rs.Close
        Set rs = Nothing

    conn.Close
    Set conn = Nothing
End Sub

ma che connessione usi?
non l'ho mai vista... :master:

e che cosa devi fare con questo codice?

[DarCas]

Mi rispondo da solo: HA SENSO! :quote:

[DarCas]

Beh, sono un programmatore ASP e la scia delle ASP, fino a che posso, la seguo.. cmq di connessione usero la Jet che è più performante!