Search:

Thanks alot

I have a textbox and when i run my code it runs but not exact, the width is like 2 - 4 units off unless i subtract it manaully in code. Is there another method that is exact ?

heres my current...

umm, i think there is a way to not show the dialog box but you might have to do some research on that, cause im not to famaliar with this api call.

you can put it in the form declarations if you want.

Updated:


Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long

Private Sub...

Well im not gonna get into the coding part but as for the progress bar i would do something like this:



Private Sub DeleteFiles()
Dim nFiles as Integer
Dim fileName(99) as String

'sets up...

i wouldnt use binary for a text file, try this:


dim ffile as Integer
dim strData as String
ffile = FreeFile

Open App.Path & "\Tutorials\Common Dialog.txt" For Input As #ffile
Do until...

try this:


Private Sub Command1_Click()
'addition
label1.Caption = val(label1.caption) + 50
'subtraction
label1.Caption = val(label1.caption) - 50
End Sub

well to scale the notepad or what ever try this:


Private Sub Form_Resize()
text1.Move 0,0,Me.Scalewidth,Me.Scaleheight
End Sub


as for a window in a window try using a mdi form then using...

sure you can use this code or modify anyway you want. have fun with it !

This code works fine for me with a label:


Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub TypeWriter(txtt As Label, time As Single, text As String)
'^^^ for time...

for a label change the declaration to:


Public Sub TypeWriter(txtt As Label, time As Single, text As String)
''^^^ make it a label instead of a textbox

and then change the .text property to...

yes

you could do something like:

text1.text = form2.text1.text

you could use the paintpicture method, just make sure the autoredraw property is set to true.

example:



Private Sub Form_Load()
picturebox1.paintpicture loadpicture("c:\mypic.bmp"),0,0...

You set the CancelError property to TRUE then in code you do something like:



Public Sub mnuColor_Click()
On Error Goto error
commondialog1.showcolor
error:
'cancel was hit
End Sub

#include <iostream.h>

int main()
{

//This prints "Hello World" and <<endl makes a new line
cout<<"Hello World"<<endl;

return 0;
}

This is even simpler, i created this function in like 2 minutes too:


Public Sub ColorText(tb As RichTextBox, color as long)
Dim s As Long
Dim e As Long
For i = 1 To Len(tb.Text)
s = InStr(i,...

its pretty simple and staight forward so here it is:


Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub TypeWriter(txtt As TextBox, time As Single, text As String)...

nevermind my last post, i wasnt thinking right. I dont know what i was thinking.

You can code your own routine to check for the mouse position and actions.

Check out the GetCursorPos() function(api call).
Also check out GetAsyncKeyState() function to check for mouse actions....

set the timer interval to 1000ms(1 second) and

under the timer_interval sub try this:


Public Sub Timer1_Interval
Static time As Integer
time = time +1
If time >= 60 Then 'replace 60 with...

Another way besides using timers:


Dim i As Boolean
Private Sub Form_Load()
Me.Show
i = True
Do While i = True
Label1.Caption = "Date: " & Date & " Time: " & Time
DoEvents

You can modify this code to search more than one instance of "<text>" just add a loop to it. But this should get you started.



Public Function GetInfo(text As String)
Dim b As integer 'begin...

This is how you maually load a bmp file

The bitmap file format:
Bitmap file header
Bitmap info header
palette data
Bitmap Dada

so on with the code part, this is our struct we need to create...

try this


Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then Command1.Caption = "X"
If Button = vbRightButton Then...

yea i should of mentioned that. thanks for letting me know.

Explaination(cause im bored):

PeekMessage() basically continues even if there is no message in the queue, perfect for functions...

I found your problem and i got it to work.

You just needed to put "Dim fThingy(10) As New frmThingy" at the top and replace n with a number.

In vb i would suggest using directx. It is possible for Opengl but its more work. If you can i would suggest using C++ if your gonna be needing graphics capablities, although vb supports graphics...

try this ...


'for one at a time
Unload fThingy


or

This is just a simple setup for a simple win32 app. I didnt really do much explaining but i did include some comments on whats going on at a particular place. I will hopefully get a simple opengl...

Im not sure what keys you want to do but try something like this:

If you want to send a non-letter key put brackets before and after like:

SendKeys {TAB}
SendKeys {SPACE}

If you want to...

This is just theory but i think it should work ....



Public Sub Command1_Click()

pictemp.Width = ScaleX(mainpic.Width, vbTwips, vbPixels)
pictemp.Height = ScaleY(mainpic.Height, vbTwips,...

.X files support animation

Check out the sdk documentation for more info.