Keskustelu: Ohjelmointikysymykset: VB6: Isonnusapua *VB*

Minulla on richtextbox (meniköhän oikein)? No... Kuitenkin. Kun painetaan sitä isonnusnappia (maxbutton), niin formihan menee isommaksi. Miten saan rtboxinkin venymään mukana?

No eikös richtextboxleveys = forminleveys tai jotain

Jotenki tolla tavalla!

Private Sub Form_Resize()
RTBox.Width = Me.Width - RTBox.Left
RTBox.Width = RTBox.Width - 200
RTBox.Height = Me.Height - RTBox.Top
RTBox.Height = RTBox.Height - 800
End Sub

RTBox.Height = RTBox.Height - 800

Tuosta rivistä se alkaa valittamaan!

Se sanoo:

lainaus:

Run-time error '380':

Invalid property value

Aluksi se ei valittanut. Sitten yhtäkkiä...

Toimisko toi!

Private Sub Form_Resize()
    rtbDisplay.Move 0, 0, Me.Width - 100, Me.Height - 300
End Sub

lainaus:

Toimisko toi!

Private Sub Form_Resize()
    rtbDisplay.Move 0, 0, Me.Width - 100, Me.Height - 300
End Sub

Nyt se sanoo:

lainaus:

Run-time error '424':

Object required

Ei se noilla yllä olevilla onnistu. Tässä esimerkissä RichTextBox kontrollin nimi on rtBox

Private Sub Form_Resize()
    If Me.WindowState <> 1 Then
        With rtBox
            .Left = 0
            .Top = 0
            .Width = Me.ScaleWidth
            .Height = Me.ScaleHeight
        End With
    End If
End Sub

Tämä venyttää rtBox:n siis koko formin levyiseksi ja korkuiseksi. Ei tarkista meneekö koko miinuksen puolelle jolloin tulee tuo "Run-time error 380". Ainostaan formin ollessa pienennettynä (WindowState = 1) noita koodeja ei ajeta

lainaus:

Ei se noilla yllä olevilla onnistu. Tässä esimerkissä RichTextBox kontrollin nimi on rtBox

Private Sub Form_Resize()
    If Me.WindowState <> 1 Then
        With rtBox
            .Left = 0
            .Top = 0
            .Width = Me.ScaleWidth
            .Height = Me.ScaleHeight
        End With
    End If
End Sub

Tämä venyttää rtBox:n siis koko formin levyiseksi ja korkuiseksi. Ei tarkista meneekö koko miinuksen puolelle jolloin tulee tuo "Run-time error 380". Ainostaan formin ollessa pienennettynä (WindowState = 1) noita koodeja ei ajeta

KIITOS!

Jos sen koodin muuttaa näin:

Private Sub Form_Resize()
   If Me.WindowState <> 1 Then
       With rtBox
           .Left = 0
           .Top = 0
           .Width = 50
           .Height = Me.ScaleHeight
       End With
   End If
End Sub

Niin se tekee oikealle puolelle tilaa, jotta voi laittaa nappeja yms., mutta miten saan vasemmalle puolelle tuota tilaa? Siis ei oikealle vaan vasemmalle?

lainaus:

.Left = paljonko sitä tilaa haluat
.Top = 0
.Width = Me.ScaleWidth - .Left
.Height = Me.ScaleHeight

Ei toimi.

lainaus:

mutta miten saan vasemmalle puolelle tuota tilaa? Siis ei oikealle vaan vasemmalle?

Tämä nyt menisi ihan päättelemälläkin, mutta:

Private Sub Form_Resize()
   If Me.WindowState <> 1 Then
       With rtBox
           .Left = 100
           .Top = 0
           .Width = Me.ScaleWidth - .Left
           .Height = Me.ScaleHeight
       End With
   End If
End Sub

Eli ihan samanlailla kuin Blaze:n antama esimerkki. Tuossa vain on annettu vasemmallepuolelle tilaa tuon 100:n verran