Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6 Winellä

Sivun loppuun

tesmu [23.04.2006 00:59:23]

#

Eli siis olen asentanut VB6 winellä jne... Kääntäjä toimii hyvin ja kääntää exeksi(yllättävän hyvin toimii lnuxilla en odottanut ihan tätä) kuiteski. Ongelmani on se, että kun yritän esim suurentaa formia hiirellä niin ohjelma ei anna tehdä sitä vaan pitää manuaalisesti numeroita kirjoittamalla suurentaa se. Missä mahtaisi olla ongelma? Kaikki muut objektit suurenee ja pienenee normaalisti, mutta ei formi.

neau33 [23.04.2006 10:41:23]

#

Hello tesmu!

If the proplem appears at design time, so I don't have any solution for it... But you can try to fix the problem, so it doesn't do any harm at run time, by the following way:

' Add this declaration to a module
Public xAdd As Single, yAdd As Single, mDn As Integer

'Add this code to corresponding events on each form
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 If mDn = 0 Then
  mDn = 1: xAdd = x: yAdd = y
 End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If mDn = 1 Then
 If x < xAdd Then
  Form1.Width = Form1.Width - (xAdd - x)
  xAdd = x
 ElseIf x > xAdd Then
  Form1.Width = Form1.Width + (x - xAdd)
  xAdd = x
 ElseIf y < yAdd Then
  Form1.Height = Form1.Height - (yAdd - y)
  yAdd = y
 ElseIf y > yAdd Then
  Form1.Height = Form1.Height + (y - yAdd)
  yAdd = y
 End If
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
 mDn = 0
End Sub

You can feel free and use the code above however you want...

tejeez [23.04.2006 11:34:34]

#

neau33 kirjoitti:

If the proplem appears at design time, so I don't have any solution for it... But you can try to fix the problem, so it doesn't do any harm at run time, by the following way:

You can feel free and use the code above however you want...

Mä luulin et tää on suomenkielinen foorumi :o. kyl mä uskon että sä osaat englantia, ei sun tarvi sitä koko ajan esitellä

Niinjoo, siis ongelma oli kai sen ikkunan koon muuttaminen siinä editorissa, eikä ohjelman käynnissä ollessa. Toi sun koodi ei siis ehkä auta mitään :p

neau33 [23.04.2006 12:29:15]

#

Hej tejeez!

Visst är det så att mina kunskaper på det engelska språket är inte alls något som fulständiga... Det som står ovanpå din kommentar var bara ett slags svar på tesmus kommentar i annanstans här på sidorna. Think pal think...

Gwaur [23.04.2006 12:39:29]

#

これは、フィンランド語のフォールムですよ。

tejeez [23.04.2006 12:40:52]

#

yes i also beggin speak mcosp englands tongue and im very good in elgnand. see my own pagse writed in england http://koodaa.mine.nu/mcosp/ !!
please not speak sverige tongue, i dont undenstand it good. best if you says notghig at all.

tesmu, i think this not bad probmel, if it works so good in wines that smal not working doenst matter. hm, you should use mcosp and no wine prmobmels because mcosp cans run windows AND linucks programs.

str4nd [23.04.2006 12:42:33]

#

じゃ、フィンランド語で話してください。

KeKimmo [23.04.2006 12:42:41]

#

I think a moderator should change the topic of this thread to "Show off your language skills" ;)

EDIT: Offtopic? No, never!

tesmu [23.04.2006 12:42:44]

#

Menikö kenties offtopiciksi.

setä [23.04.2006 12:58:58]

#

Off topics mut opiks!

- (xAdd - x) = + (x - xAdd)

eli koodissa on turhia ElseIffejä. Koko If lienee tarpeeton.

neau33 [23.04.2006 13:06:45]

#

Hyvä setä!

Turhat If'it pois

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Button 'EDIT:
 case 1: '.....
End Select
End Sub

sooda [23.04.2006 13:13:41]

#

Mitään selectejäkään, ja koko mDn-homma on turha. Näätkös tuota Button-muuttujaa? ;)

kaviaari [23.04.2006 13:24:07]

#

.. Voi huokaus. Sä voit _laskee_ noi, et tarvii vertailuita :(

Edit: Korjaa enkkus

Edit: Sori, ei ollu tarkotus olla ilkee, ollaanhan kavereita <3

tesmu [23.04.2006 17:49:00]

#

Edelleen ongelma oli editorissa ei missään ohjelmassa.
VB6 Suunnittelu editorissa siinä jossa piirretään komponentit. Siinä formi ei suurennu muutakuin lukuja muuttelemalla.

Metabolix [23.04.2006 18:22:10]

#

Kuten selvisi aivan hyvin ensimmäisestä viestistä. Mutta jonkun piti päästä pätemään ja aloittaa aivan turha keskustelu aivan vääristä asioista.

Tämähän ei nyt varsinaisesti liity VB:iin vaan johonkin Winen asioihin. Kuten tejeez sanoi, kaikkea ei voi saada. Ole siis onnellinen, että toimii noinkin hyvin :) Ei ole hirmuinen vaiva muuttaa käsin niitä arvoja. Ei olisi hirmuinen vaiva edes asetella nappuloita pelkästään koodin puolella, FormLoad-tapahtumassa, sopiviin kohtiin.

Blaze [23.04.2006 18:32:15]

#

Metabolix kirjoitti:

Ole siis onnellinen, että toimii noinkin hyvin :)

Todellakin, kokeilin itse joskus puolisen vuotta sitten, niin koko Visual Studio ei edes asentunut winellä.

neau33 [23.04.2006 19:28:52]

#

Heippa tesmu!

Joku valitteli samasta ongelmasta Visual FoxPro designer'n kanssa samalla alustalla.
Jutska ei kuulemma pelaa editorissa kaikilla formin borderstyle asetuksilla...

tesmu [25.04.2006 14:28:28]

#

Eli siis Visual Studion / VB6 saat asennettua kun ekaksi asennat winellä Internet Explorerin (Ei tarvitse käyttää) Sekä uuden version javasta. Tämän jälkeen pitäisi Visual-studio/VB6 asentua kiltisti.


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta