Search:
Type: Posts; User: BeholderOf
Search:
Search took 0.03 seconds.
-
-
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...
-
-
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.
|
Click Here to Expand Forum to Full Width
|