Keskustelu: Ohjelmointikysymykset: VB6: Mikä vikana? *VB*

Mikä tässä koodissa on vikana?

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

Mitähän se valittaa? Ainoa, mitä mieleen tulee, on että jos formin ScaleWidth < 100

Jotain erroria. (En nyt muista mitä)

Riippuu formin scalemodesta. Jos Formia kaventaa niin, että ScaleWidth < 100 tulee Error 380, Invalid Property Value

Hmm... Siis miten tämä pitäisi korjata?

if (Me.ScaleWidth < 100) then .Width = 0 else .width = me.scalewidth - .Left
ton .Width = Me.ScaleWidth - .Left tilalle

lainaus:

if (Me.ScaleWidth < 100) then .Width = 0 else .width = me.scalewidth - .Left
ton .Width = Me.ScaleWidth - .Left tilalle

Häh? Mihin toi tungetaan, kun en ymmärrä tosta koodista mitään? =)

Kannattais vaihtaa nimi...

lainaus:

Kannattais vaihtaa nimi...

Joo, heti, kun joku kertoo miten? :P

En jaksa ajatella tänään mitään, joten älkää ihmetelkö jos kysyn ihan tyhmiä. =)