Search:
Type: Posts; User: henzino2
Search:
Search took 0.04 seconds.
-
Try converting the number to a integer, and see if it changes:
If Int(yournumber) = yournumber then
Msgbox "The number is a integer"
Else
Msgbox "The number has decimals"
End If
-
Ah, I read it through one more time and I think I got it wrong... You just want the last line of text in the textfile, right? Then:
Dim strListitems As String
txtEdit.Text = vbnullstring
Open...
-
Your code for writing the file seems good, just add the "Close FF" at the end:
Dim FF As Long
Dim FilePath As String
FF = FreeFile()
FilePath = "C:\Output.txt"
Open FilePath For Output As...
-
Sry, I found it out myself! It has to be "sub" and not "function". sorry! :$
Resolved!
-
Hi everyone,
I'm trying to write a function that uses the "Sleep" command, but when I call the function VB crashes (it stops responding)! My code looks like this:
Option Explicit
Declare...
-
OH YES! THANK YOU ALOT DIGIREV! That DMZ hosting thing works, everything works now! :D:D:D:D
One more thing, you mentioned something about uPnP, how do I use that? Because I doubt that my friends,...
-
I have the same problem as cyber_alex, and I've tried everything, it still doesn't work. The application still shows my local IP, and my computer is still unconnectable through my external IP. The...
-
About the problem you mentioned earlier, when one text has more words than the other, I haven't come up with something good. I've thought of taking each word in A(), and then compare that word with...
-
To do that you'll just use the split commando again, but instead of " " you write vbnewline:
Dim LinesA() As String
LinesA() = Split(Text1.Text, vbnewline)
You'll get three items in the array...
-
Hm, this was a hard one, I don't have time to solve it now, but I'll (hopefully) come up with a good solution tomorrow, or else the other more experienced guys here will help you ^^
-
-
Just add a Listbox, and then replace the MsgBox line with: List1.Additem A(temp) & " " & B(temp)
-
Haha, this reminds me of one time when I misplaced a function in the label_click event instead of the label_change... I sat there for like, 8 hours and was ready to kill my computer before i realized...
-
You sure the Windows Media Player doesn't work?
wmp.settings.autoStart = True
wmp.URL = "blablabla.mp3"
'the sound will start playing immeadiatly as you have autostart on...
'some additional...
-
Okay, It's really a pity that those old [VBCODE] tags disappeared...
And I don't really want to use MartinLiss's Cpoy/Paste add-in as I hate having unnessesary processes running in the...
-
Hm, the first thing I'm thinking of is the "Split" function.. something like:
Dim A() As String
Dim B() As String
A() = Split(Text1.Text, " ")
B() = Split(Text2.Text, " ")
Dim Temp As...
-
Okay..... Then just do it by conditional statement?
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyB Then Text2.Text = Text2.Text & "q"
End Sub
And then...
-
Hi,
I'm getting very irritated at the VBcode box in this forum.
Let's say I have a box like this with some random code:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim...
-
Ehm.. If i got it right, you want your code to check if the user types in a "b" for example, and then immeadiatly change it to an "q"?
If that is the case...
Private Sub Text1_KeyUp(KeyCode As...
-
Thank you all guys, you can always trust vbforums :D, resolved.
-
Did you add all the declarations and stuff too to each form? (or public:ed them in a module)
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As...
-
I tried it...
Public Blablabla() As Boolean
Then in a command button:
Blablabla(3) = True
It gives a "subscript out of range" error.
-
You have to add the:
RemoveMenu GetSystemMenu(Me.hwnd, 0), 6, MF_BYPOSITION
to every form you have, not just one.
-
Hi,
In my game I have a picture array of bullets, and new bullets are added to the array each time you fire using the "Load MyBullet(X)" command.
To each Bullet item in the array I want to have a...
-
I think that GKalman thinks of modules as forms - that VB loads the modules when you start your project just like a form, and is wondering if you could prevent that from happening and "load" the...
-
Okay, Let's take it all from scratch just so you understand how to use the function ^^ I'll describe VERY simple.
1. Start Visual Basic, click New - Standard EXE.
2. Add the module I attached...
-
Are you talking about the code example? Because thats meant to be in a command button in a FORM ^^"
-
Here, i downloaded it and just pasted it all into a module. Add the module to your project and it will work.
Example:
Private Sub Command1_Click()
Dim Mystring As String
Mystring =...
-
-
ah, yes, thanks for the info, i found a good sample of bitblt and I think I understand ^^
Sorry to bother you, but while you're at it, could you please give a simple explanation to me what class...
-
Ah yes. the thing is that there are only a limited number of image controls with shuriken sprites xD I'm not really a vb-noob, I know all the basic stuff and how to do simple applications, but when...
-
Just wondering... you surely did unzip the file before pasting it into the folder, did you? :P
Hm... If you did, try replacing your COMCTL32.OCX in windows\system32 with the newer one i attached...
-
So easy :P It took me one minute to solve, as there cant be more than one queen on each horizontal/vertical row the solution is obvious.
Very fun little program though! :)
-
-
Here you go :) Put this file in the same folder as the exe and it should work.
-
Hi,
A couple of years ago, when I started watching anime (Naruto) i became so obsessed that I started to make a game. However, as my obsession faded, and as the filler episodes took over, my...
-
Thank you all guys! I combined all your help into one final solution :cool: (I've given reputation to all of you too ^^)
(Just posting it if someone's intersted)
In the module:
Declare...
-
Rhinobull, the result is always 0 no matter if caps lock is on or off... Exept for when I press the Caps Lock-button, the result is then -32676, but that value doesn't change depending on if caps...
-
And, by the way, if I only wished to toggle Caps Lock, wouldn't it just be easier to Sendkeys("{CAPSLOCK}")? ...
-
Private Sub NTToggleKeyCaps()
Call keybd_event(vbKeyCapital, _
MapVirtualKey(vbKeyCapital, 0), _
KEYEVENTF_EXTENDEDKEY Or 0, 0)
...
|
Click Here to Expand Forum to Full Width
|