cryoburned
Last Activity: Oct 30 '07, 06:38 AM
Joined: Sep 19 '07
Location:
-
focusing on delay, im having trouble with the timer control in my scenario. What is the proper use, and do you have an example that displays objects moving?... -
VB6 and Animations
What if i want to make an object tween across my form?
I have
[code=vb]
While Kewlbuttons1.To p > 120
Kewlbuttons1.To p = (Kewlbuttons1.T op - 5)
Wend
[/code]
in a button, but, It just zips across insantly, leaving a black redraw space behind it.
How can I make it smoothly and slowly, go across? -
that doesn't make a difference for this project.. but i got it.. i dont know why i had this problem but... now
[code=vb]
hexfinal = Hex(Val((("&H" & hexfinal) + &H8000) - &HFFFF0000))
[/code]
gets me FFFF like i wanted.....Leave a comment:
-
lo its cool.. but im still have the problem with 8000.. it goes to 7FFF in subtraction, but jumps to FFFFFFFF is addition....Leave a comment:
-
i prefer kewlbuttons....Leave a comment:
-
I believe you have too many parentheses. I think this should be...
Old version:
hexfinal = Hex(Val(("&H" & hexfinal) + &H8000))
New version:
hexfinal = Hex(Val("&H" & hexfinal) + &H8000)...Leave a comment:
-
that did it.
...Code:Private Sub Form_Load() hexfinal = "0000FFFF" End Sub Private Sub L2_Click() If l2on = False Then L2.ForeColor = &HFFFFFF l2on = True hexfinal = Hex(Val("&H" & hexfinal) - &HFFFF0100) Text1.Text = "0000" & hexfinal Text2.Text = "0010" & hexfinal ElseIf l2on = True Then L2.ForeColorLeave a comment:
-
L2 is a button, l2on is boolean...Leave a comment:
-
ok your idea to get the value of the string.. sort of works...
[code=vb]
Private Sub Form_Load()
hexfinal = "&H0000FFFF "
End Sub
Private Sub L2_Click()
If l2on = False Then
L2.ForeColor = &HFFFFFF
l2on = True
hexfinal = Hex(Val(hexfina l) - &HFFFF0100)
Text1.Text = "0000" & hexfinal
Text2.Text = "0010"...Leave a comment:
-
lets pretend that the checkbox for the Desert Eagle is checkbox1.
at the top of all your code:
double click the deagle checkboxCode:Dim addtext As String
now:
...Code:Private Sub Checkbox1_Click() If Checkbox1.Value = 0 Then Text1.Text = Text1.Text & "Deagle;" Else addtext = Text1.Text Text1.Text = Replace(addtext,"Deagle;","")
Leave a comment:
-
well thanks for that.. will try at home.. but no matter what i dimmed hexfinal as, there was always a problem.. integer long double variant and string...
i did try CInt() but it always every number always came out to zero..
expect for FFFF which came out as -1...Leave a comment:
-
never said what version.. snd..
whats wrong with your original code?Leave a comment:
-
i solved that problem too.. coding error...
but what about using the hex function to add and subtract variables?
hexfinal = hex(hexfinal + &H100)
but i get a type mismatch with this.
hexfinal = hexfinal + hex(&H100) gets results in the same thing.Leave a comment:
-
but unfortunantly, while it works.. when i add it ( i know this isn't to the subject of this thread.. ) instead of going back to FFFF from FEFF it becomes just FF. Is there a solution other than
So that i can work around it to have all 4 digits?Code:If hexfinal = &HFFFF Then Text1.Text = "FFFF" End If
Leave a comment:
-
w00t so i got my problem figured out.. i had a global variable named "hex" was screwing with my code..
the reason i thought what i said in my other post was the problem is because i thought when it said vba it was my actual version, not the office vba support.....Leave a comment:
-
youd have to load your .exe on every computer by whatever means (manual or something like novell) and then you'd have to manage a server somewhere for all of those apps to connect to so that they could send the data where it could be collected..Leave a comment:
-
eh.. i think i found my problem...
at the bottom of the about box:
Version 8176 VBA: Retail version 6.0.8169 Forms3: 11.0.6550
lol btw it says (number)? thats weird.. i would have thought it'd say integer..Leave a comment:
-
in vb6:
Code:'without button Private Sub Text1_Change() Text2.Text = Text1.Text End Sub ' 'with button Private Sub Button1_Click() Text2.Text = Text1.Text End Sub
Leave a comment:
-
VB6.
6.0.8169
but i dont think mine supports it because usually a code hint appears if you type
anything and then parentheses.
aka i type replace and as soon as i type the open parenth a code comment appears..
that doesnt happen with hex or hex$.Leave a comment:
-
i couldnt find a direct way to just subtract them..
but everytime i use the hex$ function, I get a compile error that tells me an array is expected..
hexfinal = hex$(&HFFF - &H1)Leave a comment:
No activity results to display
Leave a comment: