Visual Basic Roundup!

[Jonas]

For alle de som er sultne etter Visual Basic source code, besøk hjemmesiden min:

http://www.stangeland.tk

Masse kult der! Sjekk ut mitt nye da, Net Tools Lar det åpne shared folder til alle på nettverket, sende net send med eget valgt avsender navn og kan laste ned ting fra internett! hmm, kommer ikke inn på home nå, men programmet ligger på home.no/jonas1 - småprogrammer - net tools.exe

[GeirGrusom]

Jeg har akkurat laget et program i VB6 som viser alle vinduer kontroller som vises i Windows, og du kan skru av og på enabled, disabled og endre teksten (brukte det til å fortsatt bruke programmer som var gått ut av trial versjonen)

 

<a href="http://www27.brinkster.com/geirgrusom/downloads.html">Stæsch igjen</a>

Den heter Window Editor.

La til litt OpenGL i About boksen, sånn for å være hyggeli.

[Jonas]

hmm.. mens tråden er aktiv så spør jeg:

Private Sub Command1_Click()

Dim Tall1 As Integer
Dim Tall2 As Integer
Dim Sum As Integer
   Tall1 = Val(Text1.Text)
   Tall2 = Val(Text2.Text)
   Sum = Tall1 + Tall2
Label1.Caption = Sum

End Sub

Hvis man skriver litt mange tall i boksene så gir det overflow! Hvordan går det ann å fikse det? og hvordan få til at man bare kan skrive tall der?

[aadnk]

Følgende er kode for å gjøre en tektboks "number only":

 

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&

Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)

Dim curstyle As Long, newstyle As Long

curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)

If Flag Then
curstyle = curstyle Or ES_NUMBER
Else
curstyle = curstyle And (Not ES_NUMBER)
End If

newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
NumberText.Refresh

End Sub

Private Sub Form_Load()

SetNumber Text1, True

End Sub

[sim]

hmm.. mens tråden er aktiv så spør jeg:

Private Sub Command1_Click()

Dim Tall1 As Integer
Dim Tall2 As Integer
Dim Sum As Integer
   Tall1 = Val(Text1.Text)
   Tall2 = Val(Text2.Text)
   Sum = Tall1 + Tall2
Label1.Caption = Sum

End Sub

Hvis man skriver litt mange tall i boksene så gir det overflow! Hvordan går det ann å fikse det? og hvordan få til at man bare kan skrive tall der?

Integer støtter bare tall opp til en viss størrelse, tror det er 65000 eller noe. Du kan bruke Long for lengre heltall, eller Double for lange desimaltall.

[Jonas]

Hva gjør egentlig as Long/double/integer? Integer gir overflow, Long uten desimaltall og double med alt? Hva er poenget med de andre når double klarer alt?

[sim]

Hva gjør egentlig as Long/double/integer? Integer gir overflow, Long uten desimaltall og double med alt? Hva er poenget med de andre når double klarer alt?

Det har litt med størrelsen på tallmengden, og hvor mye plass de bruker i minnet (RAM).

[Jonas]

Minnet ja.. Er det mye forskjell på de? hvis jeg skal lage noe små greier, er det lurt å bruke kun det nødvendige? eller bruker de så lite at det har lite å si? bruker vb mye minne og resurser? Har sett på koden med do "net send" loop og da klikker jo programmet og alt fulstendig! Hvis jeg gjør det med en .bat fil så gjør den det glatt!

[novcius]

Forskjellen er ikke så stor når det gjelder minne, men den er stor når det gjelder hastighet.

 

Byte - 1 byte

Integer - 2 byte

Long - 4 byte

 

Single og Double bruker henholdsvis 4 og 8 byte.

[Jonas]

Tar den så mye minne helt til programmet avsluttes eller til kommandoen er over? eller blir det i minne til maskina avsluttes?

[Jonas]

Wayshot, på PassGen så har du sånn at hvis man holder inne "alt" (på tastaturet) og trykker på den understrekete bokstaven så endres checkboksen til det motsatte. Hvordan får du til det?

Endret 9. januar 2004 av jonas22282460

[Rep]

Wayshot, på PassGen så har du sånn at hvis man holder inne "alt" (på tastaturet) og trykker på den understrekete bokstaven så endres checkboksen til det motsatte. Hvordan får du til det?

På caption teksten til label, command, checkbox++ så kan du lage snarveien med å sette & tegnet foran bokstaven du vil ha som snarvei.

 

 

Eks. med "Alt+y"

 

CheckBox1.Caption = "Tr&ykk her"

[sim]

Valg av variabelform har vel ikke så mye å si når det er små programmer. Det er vel heller ikke så merkbart på store programmer heller, PC-ene i dag er såpass raske at man som menneske nesten ikke merker noen forskjell.

[OofMan]

Har laget et lite program som heter Bandwidth Monitor Pro.

Link ligger i signaturen.

[Jonas]

Har laget et lite program som heter Bandwidth Monitor Pro.

Link ligger i signaturen.

Har du kilde koden til den?

[OofMan]

Har du kilde koden til den?

Det har jeg, men siden programmet er kommersielt er jeg ikke så lysten på å gi den ut.

[Jonas]

Kan du legge ut koden for å se ip'en da? Hvor fant du disse kodene?

 

Edit: Vises den lokale eller den andre ip'en?

Endret 12. januar 2004 av jonas22282460

[OofMan]

Kan du legge ut koden for å se ip'en da? Hvor fant du disse kodene?

 

Edit: Vises den lokale eller den andre ip'en?

Har skrevet alt selv, men har selfølgelig brukt div eksemler ol. jeg har funnet på nettet for å sette meg inn i ting.

 

Det er den lokale IP'en som vises.

Denne kan du enkelt finne ut ved å sette inn en Winsock Control og hente ut .LocalIP verdien.

 

Hvis det er den eksterne IP'en du er ute etter kan du f.eks koble deg opp mot http://www.whatismyip.com og hente IP'en derifra.

[Jonas]

Hvordan bruker jeg den .LocalIP? Hva mer må jeg skrive enn winsock1.LocalIP?

[OofMan]

Hvordan bruker jeg den .LocalIP? Hva mer må jeg skrive enn winsock1.LocalIP?

F.eks

Caption = Winsock1.LocalIP