Realy Quick Question
ok, i want my program look for a certain string/keyword in one of my files on my computer:
<A HREF="ftp://
Thats the word i want it to look for, but if u havent all ready guessed it. It wont work. Reason for it is becuase of the darn quotes. I HAVE TO HAVE THE QUOTES IN THERE! ahmm, i just had to get that out of the way becuase i know what most of u are going to say . Now, how do i get around this prob?
This was the string i was going to use before this prob came along:
Code:
intAPOS = InStr(1, strFTPs, "<A HREF="ftp://")
Thanks (again)
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
I Realy Need Help On This One
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Página normal. sem título</title>
</head>
<body bgcolor="#FFFFFF">
<form action="Call%20Calculo" method="POST">
<p><input type="text" size="20" name="Text1"> <input
type="text" size="20" name="Text2"> <input type="submit"
name="B1" value="Ok"> <script language="VBScript">
<!--
Sub Calculo()
Document.write "Merda"
end sub
-->
</p>
</script> </p>
</form>
</body>
</html>
I want to call de sub Calculo() when the Button1 is pressed,
what is wrong please help me.
Which Of Thes Dep's Do I Realy Need
Hi Guys,
I have an app that runs an access database.
I have made an installer setup using Inno & IStools, all seems fine!!
I have included several database files to help my app on other systems, there are:
dcom95.EXE
dcom98.exe
mdac_typ.exe
vbrun60sp5.exe
Jet40SP7_9xNT.exe
Now I have also a few Dll's & OCX files I have included But Im not sure If I realy need them all with having the above files too, So im hoping someone can advice me on what I need, when my app installs on to other systems at the moment it seems to be fine, there has only been 1 PC came up with an Runtime Error 429 so far.
The other dep's I am including at the moment are:
COMDLG32.OCX
MSMAPI32.OCX
MSCOMCT2.OCX
MSDATGRD.OCX
MSCOMCTL.OCX
MSADODC.OCX
RICHTX32.OCX
dao360.dll
MSBIND.DLL
OLEAUT32.DLL
scrrun.dll
ASYCFILT.DLL
COMCAT.DLL
msvbvm60.dll
OLEPRO32.DLL
msjtes40.dll
msrd2x40.dll
msrd3x40.dll
msrepl40.dll
MSSTDFMT.DLL
msvcrt.dll
mswdat10.dll
mswstr10.dll
VB5DB.DLL
VB6STKIT.DLL
vbajet32.dll
expsrv.dll
msado27.tlb
msjet40.dll
msjint40.dll
msjro.dll
msjter40.dll
STDOLE2.TLB
CDO.DLL
msado15.dll
Thanks again for any assistance
L
I Realy Need Help With This Form
ok hi im trying to make a form that has three parts part one a lable that says enter ip witch i have part too a text box that you can enter an ip in the format 000.000.000 but automatically separated by the dots and the third part a button that sends the message to that ip is this possible and if so can someone please help me i am relatively new to vb so i relay need help(sorry if it dont fit in this forum im kinda in a hurry)
Thanks
Realy Need Some Help Translate From C++
Hello folks,
How should this function look in visualbasic code?
Im been thinking about this for a while now but since i know nothing about C++ it's not so easy
VB Code:
void PrintMessage(char *Message, char Color){pPrint Print = (pPrint)0x6FAC6780; //function for adding message to chatwchar_t Buffer[0x130]; //buffer (0x130 was maximum from what i read somewhere) //convert to WideChar (2 bytes per each character)MultiByteToWideChar(0, 1, Message, 100, Buffer, 100);Print (Buffer, Color); //and print}
Big thanks,
Naitsabes
What Does This Realy Means
"Empty row cannot be inserted. Row must have at least one column value set."
the app. is about filtering a recordset,
Set Rst_Filter_Dt = DualFilterField(Rst_Batch_Dtl, "Batch_no", Text1(0).Text, "ProdPeriod", Text1(3).Text)
If Rst_Filter_Dt.RecordCount <> 0 Then Rst_Filter_Dt.MoveFirst
'the function
Public Function DualFilterField(RstTemp As ADODB.Recordset, _
strField As String, strFilter As String, _
strField1 As String, strFilter1 As String) As DODB.Recordset
RstTemp.Filter = strField & " = '" & strFilter & "' And " & _
strField1 & " = '" & strFilter1 & "'"
Set DualFilterField = RstTemp
End Function
'if only more details can be seen on the error messages things can be resolve quicker and precise.
10x
cyrus
Is BltFast Realy Slow?
guys i wanna draw trees on a forebuffer which i then copy into backbuffer. The drawin' area is like 800*600 and trees are like 80*60. But bltfast is * * * * slow drawin the trees on screen it reduces ma fps to half when the trees are more than 20. :O any1 got any idea???
A Realy Stupid Question
Hi, I'm a begginer with VB..... I donwloaded myodbc3.dll to use MySQL and I'm using this code that I found in this forum:
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.ConnectionString = "driver={MySQL};server=127.0.0.1;uid=root;pwd=;database=dbname;OPTION= 3;STMT=;"
cnn.Open
Set rs.activeconnection = cnn
rs.Open "select * from customers"
Form1.Text1 = rs!fieldname
My question is "How can I link to the myodbc3.dll "????? in oder words..... How can I use a .dll's file in a VB code?
Realy Weird Thing In Vb6
Ive goten a FILE counter and it works with the*.* thing
anyway it only counts the files in its own directory ,
so ive tryed to do a project but it doesent work properly , and after a few testings
ive found out that the file was in the directory i want to be ( the file as in the one that counts the files in its App.path )
and it gets to that directory by another program a (handler) i like to call , the handler basically copies the counter to a directory to count the files in it.
but when it gets copied i made it MSGBOX number of files and app.path
it sayd the number of files that the (handler ) was in , and the app.path was in another directory. this is very weird ... i dont know how to fix it not evin a possability.
i hope i made my self clear becous eim bad at explaining.
thats not the hole code .
Code:
Private Sub che()
Dim FileName As String, Bytes As Long, FileCount As Integer
FileName = Dir("*.*")
While Len(FileName)
FileCount = FileCount + 1
Bytes = Bytes + FileLen(FileName)
FileName = Dir()
Wend
MsgBox Str(FileCount) & " files on subdirectory using" & Str(Bytes) & " bytes. im in " & App.Path
End If
End Sub
the handler basically coppied it to another file , without running it untill it went to the folder
...
Realy Need Help!! Find String!
HI!!
Well i am cratinf webserver but i need to search a text in string to know what will be the next wepage tha will be displayed!! This is that string:
GET /index.htm HTTP/1.1
In this string my server have to find a websites url! my code is like:
VB Code:
Dim Search, Where Search = "index.htm" Where = InStr(Text1.Text, Search) If Where Then ' If found... Text1.SelStart = Where - 1 Text1.SelLength = Len(Search) Else MsgBox "String not found." End If
Well it finds the url but the problem is that
that URL can be default.htm or downloads.htm! So i need my server to search only for ".htm" and then add the rest url like downloads.htm! Can you please help me!!!???
Realy Weird Problem
I've made a program. then I made with the Application Setup Wizzard a install program. then I send it to someone. he started setup.exe and the program said that he couldn't find Cchat.exe. this would be necessary to extract ex_ files. I've searched for this Cchat.exe file, but it's a chat program!! isn't this weird? what can I do to make my program work at the other persons computer?
please help,
VisualPenguin
Packaging Error Realy Need Some Help
HI
i've encountered an error during the packaging of an application
at the last screen of the packing after give a name to the sript package a message box notify this error:
Unexpected error number 457 appears : key alreday linked to another item's collection
(be care i translated the error description french to english)
I'll enjoy you could give me some help
BEST REGARD
THOMAS
Realy Dumb Dir Question
got dir1.
now if i map a drive to my pc..
how can i make dir1 view the directory's on that maped drive (say M)
do i go dir1.path="m:" after mapping it?????
People This Is Important (I Realy Need Help)
I'm having the presentaition of my program tomorow and i noticed that one thing is not finished. I just must finsh it until tomorow. You are my last chance.
I have 1 textbox
Problem:
I need to make program wich disalows user to copy information from textbox to clipboard.
(I need to make right mouse button and Ctrl+c
keys inactive on this textbox)
I tried to make something like:
Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 2 Then
KeyAscii = 0
End If
End Sub
But this just doesn't work
Any ideas apricieted
-thank you
------------------
-casparas
novice programer
casparas@metacrawler.com
A Realy Challenging Topic, Well I Think So!
I have need to be able to open a word document and view it within either VB, preferably VBA or Java and then print it in a pdf format. We have Acrobat and thus a postscript printing capability. I imaging you can get a VB control that facilitates opening and viewing word documents but I have no idea where you get one or how you use it, let alone how you go about printing it out.
Can this be done?
Cant be done in VB?
Is it exspensive?
How do you do it?
If anyone can help, thanks.
HELP: Realy Simple File Sending
Hi!!
I try to create a simple file seding programm. i try'd to send a 605 bytes small file but server recives only about 558 bytes!!! heres the code:
This is how i open the file!
Code:
Private Sub Command3_Click()
Open "C:Icon.gif" For Binary As #1
Do Until EOF(1)
Get #1, , strData
Text3.Text = Text3.Text & strData
Loop
Close #1
End Sub
then i send the string
Code:
Private Sub Command2_Click()
Winsock1.SendData Text3.Text
End Sub
and the server code when data arrivals, this will create a gif file from recived data string:
Code:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ThisIsData As String
Winsock1.GetData ThisIsData
MsgBox ThisIsData
Open "c:File.gif" For Binary As #1
Put #1, , ThisIsData
Close #1
End Sub
byt this file is smaller and when i try to open it, it shows just: cannot display image, image is invalid or something like that!!
how can i send this file without losing data???
Thanx!!
Simple Question.. Realy Easy
ok i have this program im tryin to make and it loads a .txt into the text box and there are screen names in the text box and look like this( blah@aol.comblah@aol.comblah@aol.comblah@aol.com) what im tryin to do is to get the program to use the mid function or somethin of that sort to put them into a list like (blah@aol.com
blah@aol.com
blah@aol.com
blah@aol.com) how do i load the .txt into the text box first off? cause i can do a list box and get it to load and everything but the text box is trickin me?
Realy Simple Problem But I Can Work It Out ?
OK, so it looks likes its working fine but it slowly messis up when you move the screen around so im guessing its somthing small thats wrrong, also it COMPLEATLY messis up if you min the form or make it really small.
Any idears ?
you can see the source a lot better at
http://tsn.dk/p/?id=2077
Private Sub Admin_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Static Old_Size As Integer
If Me.Width > Old_Size Then
Admin_Main_Sessions_Users_Com.Width = Int(Admin_Main_Sessions_Users_Com.Width + ((Me.Width - Old_Size) / 2))
Admin_Main_Sessions_Sessions_Com_Tag.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com_Tag.Location.X + ((Me.Width - Old_Size) / 2)), Admin_Main_Sessions_Sessions_Com_Tag.Location.Y)
Admin_Main_Sessions_Sessions_Com.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com.Location.X + ((Me.Width - Old_Size) / 2)), Admin_Main_Sessions_Sessions_Com.Location.Y)
Admin_Main_Sessions_Sessions_Com.Width = Int(Admin_Main_Sessions_Sessions_Com.Width + ((Me.Width - Old_Size) / 2))
Admin_Main_Sessions_Log_But.Location = New Drawing.Point(Int(Admin_Main_Sessions_Log_But.Location.X + (Me.Width - Old_Size)), Admin_Main_Sessions_Log_But.Location.Y)
Else
Admin_Main_Sessions_Users_Com.Width = Int(Admin_Main_Sessions_Users_Com.Width - ((Old_Size - Me.Width) / 2))
Admin_Main_Sessions_Sessions_Com_Tag.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com_Tag.Location.X - ((Old_Size - Me.Width) / 2)), Admin_Main_Sessions_Sessions_Com_Tag.Location.Y)
Admin_Main_Sessions_Sessions_Com.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com.Location.X - ((Old_Size - Me.Width) / 2)), Admin_Main_Sessions_Sessions_Com.Location.Y)
Admin_Main_Sessions_Sessions_Com.Width = Int(Admin_Main_Sessions_Sessions_Com.Width - ((Old_Size - Me.Width) / 2))
Admin_Main_Sessions_Log_But.Location = New Drawing.Point(Int(Admin_Main_Sessions_Log_But.Location.X - (Old_Size - Me.Width)), Admin_Main_Sessions_Log_But.Location.Y)
End If
Old_Size = Me.Width
end sub
Realy A Newbee Question . Need Help On A Simple Loop.
Hi i was wondering if anyone of you could help med with this.
I'm making a simple program with several labels, and i need to change the labelX.top command on all my labels.
This is easy in simple code, but there must be a way to automate it , so i dont have to wright it all inn.
Feks.
label1.top =
then the loop would change the value to label2.top= then label3.top = etc.
So that i dont have to wright
let label1.top =
let label2.top =
let label3.top =
Thanks Guy's
Gabrielli
Realy Need Help Please,, Treeview To 3 Listview, DBGrid1 To Slow
I use DBGrid1 to call from database
Table customer into DBGrid1
and when I klick on DBGrid1 I get info from Table workingTime into DBGrid2
From Table Rent into DBGrid3 and from table Whois into DBGrid4
In Table customer I use NR=autonumber
so when I klick on DBGrid1 I use NR to call same NR from Table workingTime, Rent and Whois
DBGrid1 is to slow, so I want to tray to use treeview and listview
But need help to now how I call customer into treeview and use NR from treeview to call the rest from NR in rest og the table
and pudit into listview..
HOW? HOW?
PLEASE som
Windows XP Button Howto (Read This Its Realy Cool)
Hey there,
i found a UserControl on the internet that make's Windows XP buttons in you VB Application!
Its cool though, but there is only 1 color available.
Download the Zip file, and place it somewhere on your computer. Make a new project, and add
the XP_Button usercontrol to your project.
Now, add the line below to your Form_Load section where Form1 is the form that contains the buttons:
Code:
InitialiseButtons Form1, True, True 'Must Call this to initialise the buttons
Place the code below somewhere apart in your project.
Code:
Public Sub InitialiseButtons(FrmForm As Form, Initialise As Boolean, Optional BytEnabled As Boolean)
On Local Error Resume Next
Dim Control As Object 'Define the variable control as an object
For Each Control In FrmForm 'Check all controls on a form
If TypeOf Control Is Command Then
If Initialise = True Then
Control.Initialize 'If its a XP command button then initialise it.
Else
If BytEnabled = True Then
Control.Enabled = True
Else
Control.Enabled = False
End If
End If
End If
Next
Happy programming and have fun with this UserControl!
Greets,
DigitalHuman
Quick Help Sorting A Flexgrid, And Other Quick Question
Hello all, I'm new to this forum, hopefully somebody can help me out with a couple minor problems I have with my code.
I have data inputed into a flexgrid, and would like to sort it by YEAR in increasing order. Year is (frmStats.flexGrid.Col = 0).
The other problem I'm having is that when I try to get a batting average for players or their slugging percentage I get "0" the only time I don't get that is when the number of at bats is 0 then I display ".000", I check for division by zero to stop a run time exectution error. Below is the code you need to help.
Thank you for your help!
blkshirt
Code:
Option Explicit
Type Demo_Record
LahmanID As String * 9
LastName As String * 20
FirstName As String * 15
Bats As String * 1
Throws As String * 1
BirthMonth As Byte
BirthDay As Byte
BirthYear As Integer
RookieSeason As Integer
FirstStatsRecord As Long
StatsRecordPosition As Byte
End Type
Type Stats_In
LahmanID As String * 9
Year As Integer
Team As String * 4
League As String * 4
Games As Integer
AtBats As Integer
Runs As Integer
Hits As Integer
Doubles As Integer
Triples As Integer
HomeRuns As Integer
RBIs As Integer
SacHits As Integer
SacFlies As Integer
Steals As Integer
Caught As Integer
Walks As Integer
Intentional As Integer
HitByPitch As Integer
StrikeOuts As Integer
NextStatsRecord As Long
StatsRecordPosition As Byte
End Type
Type Stats_Block
Stats(1 To 5) As Stats_In
End Type
Type Count_Em_Block
NumStats As Long
x As String * 276
End Type
Global K As String
Global i As Integer
Global J As Integer
Global DemoFileName As String
Global StatsFileName As String
Global DemoRecord As Demo_Record
Global StatsBlock As Stats_Block
Global StatsIn As Stats_In
Global CountBlock As Count_Em_Block
Global PD As Stats_Block
Global Year As Integer
Global Team As String
Global Leauge As String
Global Games As Integer
Global Runs As Integer
Global AtBats As Integer
Global Hits As Integer
Global Doubles As Integer
Global Triples As Integer
Global HomeRuns As Integer
Global RBIs As Integer
Global SacHits As Integer
Global SacFlies As Integer
Global Steals As Integer
Global Caught As Integer
Global Walks As Integer
Global Intentional As Integer
Global HitByPitch As Integer
Global StrikeOuts As Integer
Global CurrentPlayer As Integer
Global NumSeasons As Integer
Global NumPlayers As Integer
Global FullName As String
Global numRecord As Integer
Global ApproxRecords As Long
Global RecsRead As Long
Global StatsRead As Integer
Global StatsRecord As Integer
Global YearRow As Integer
Global TeamRow As Integer
Global LeaugeRow As Integer
Global GamesRow As Integer
Global ABRow As Integer
Global HitRow As Integer
Global DoubleRow As Integer
Global TripleRow As Integer
Global HRRow As Integer
Global RBIRow As Integer
Global SacHRow As Integer
Global SacFRow As Integer
Global StealsRow As Integer
Global WalksRow As Integer
Global HitByRow As Integer
Global KRow As Integer
Global BARow As Integer
Global SPRow As Integer
Global TBRow As Integer
Global SingleRow As Integer
Global BA As Integer
Global SP As Integer
Global TB As Integer
Global firstbase As Integer
'Function used to Calculate a Players Batting Average
Function BatAvg()
If Val(AtBats) = 0 Then
frmStats.lblBA.Caption = ".000"
Else
BatAvg = Round(Val(Hits) / Val(AtBats), 3)
End If
End Function
'Function used to Calculate a Players Total Base Count (Used in Slugging Percentage)
Function TotalBases()
TotalBases = Val(Singles) + Val(Doubles * 2) + Val(Triples * 3) + Val(HomeRuns * 4)
End Function
'Function used to Calculate a Players Slugging Percentage
Function SluggingPct()
If Val(AtBats) = 0 Then
frmStats.lblSP.Caption = ".000"
Else
SluggingPct = Round(Val(TotalBases) / Val(AtBats), 3)
End If
End Function
'Function used to Calculate a Players Total of Singles as it is not given in the data file.
Function Singles()
Singles = Val(Hits) - Val(Doubles) - Val(Triples) - Val(HomeRuns)
End Function
Public Function BinSearch(ByVal Wanted As String, ByVal Lo As Integer, ByVal Up As Integer) As Integer
'*****************************************************
'* Search Function *
'*****************************************************
If Lo > Up Then
BinSearch = False
MsgBox ("Player Not Found")
Else
i = (Lo + Up) / 2
If Left(frmStats.cbo1.List(i), Len(Wanted)) = Wanted Then
BinSearch = True
frmStats.hsbScroll.Value = i
Else
If Left(frmStats.cbo1.List(i), Len(Wanted)) > Wanted Then
BinSearch = BinSearch(Wanted, Lo, i - 1)
Else
BinSearch = BinSearch(Wanted, i + 1, Up)
End If
End If
End If
End Function
Network Help SMALL REALY SMALL!
If im on a network how and my PC name is 17-13-34 how can i send a net send message to the Admin i tryed
17-13-00
17-13
17
Nune worked??
Need Help Quick
http://jester.t35.com/maze1copy.gif
i am making a game just like pacman a car goes through a maze
and i need so car doesent cross the black shapes
i was suggested to check the color of background...which i dont have a clue how to do...
if some one can help me that be great
VB6 && DAO (Quick Q?)
Long Time Since I have used DAO from within VB6 IDE
I just want to open a database which I can do and run a macro called [Whatever] From withing the Access97 DB and thats it. Can not find anything anywhere, can open queries e.t.c
Any Pointers Appreciated.
Thanx In Advance
Very Quick ?
In Access 2002, how do you make a text on a form (design) go to a 45 degree angle?
A Quick One!!
I think I'm going mad here!
Cannot seem to get a label field within a userform to display the contents of a cell.
The userform is called Summary, the label is named YourRef
Code:
Summary.Show
YourRef = Worksheets("Price List").Range("H12").Value
Am I missing something fundamental here??
Need Quick Help Plz
OK..here is an easy question.
How do i have a not equal to equation in vb?
what symbol(s) do i use?
Quick ?
How can i retrieve values from previus forms...
aka view the value in textbox1 on form1 in form4
Quick And Ez
my picture box is cutting off a image (this image is huge its a game tile set) but it scrolls good and all till i get to around 16500 pixels then it just cuts it off i can still see the pic box black background but it never loaded the hole image why?
Quick Help Please!!
I!m very new in vb and have a problem. i don't think it is hard but
i couldn't solve it.
i have to calculate the following:
y(x)=(((x - x1) * (x - x2)) / ((x0 - x1) * (x0 - x2))) * y0 + (((x - x0) * (x - x2)) / ((x1 - x0) * (x1 - x2))) * y1 + (((x - x0) * (x - x1)) / ((x2 - x0) * (x2 - x1))) * y2
where all the terms except x is known.
i wanna output the resulting polynomial.
i also tried the take the result by giving a value to x however it came out that the program does not read the function y(x) the way i wrote.
if u are interested before this is the lagrange polynomial of order 2.
thanx
Take A Quick Look And Help Me Out..please
Im trying to display something in a textbox, i want it to come out like a list..... like this.
Result 1
Result 2
Result 3
Result 4
but it keep showing up like this
Result1, Result2, Reult3, Result4
This is the code i used Result1 & " " & Result2 & " " & Result3 & " " & Result4..
Can someone tell me how to make it come out like a list.
Quick ?
I cant figure out how to make this SHOW it and NOT add it
Code:
temp1 = frmMain.lblyourFPU.Caption * 0.333333333333333
temp2 = frmMain.lblyourFPU.Caption * 0.666666666666667
frmMain.lblyourFPU1.Caption = temp1 And temp2
ive tried and, &, +
what am I doing wrong (I would like to NOT use the temps, and just use like
Code:
frmMain.lblyourFPU1.Caption = frmMain.lblyourFPU.Caption * 0.333333333333333 "And" frmMain.lblyourFPU.Caption * 0.666666666666667
How dod you do this SIMPLE thing?
In Need Of Quick Help
Can anyone tell me? In the Add in Manager under data form wizard, when you try to connect to a remote server it asks you for a DSN. How can I add a DSN to the drop down menu? Their menu does not include my DSN for my database.
Here's A Quick One
form1.text1 requests an integer
How can I get the list box on form2 to start with that number but still allow me to select a different number from the list.
Something like this
If form1.text1 > 0 and < 20
List1.selected = Text1.text
(my listbox only includes the numbers 1-20)
Need Help Quick
Hi guys
I need help ..
I am using a VB application and on executing it i get the follwing errors
1)Error 429: Acitvex component cannot create object
2)Error 430: Class does not support Automation or does not support expected interface (Transmit)
i have registered all the reqd dll i think ..this happens with the older version of the application that i am using and not with the new one.If I install the new version only it works fine but if i have installed the previous version and I uninstall the previous version and install the new version the same errors come no matter what I do..I tried cleaning up the registry..
what do i Do
Pls hlp
Quick Key
Im making a program that when i press for example Shift+f1 that something happends. but i dont know how to code a double keypress like Shift+f1 with the API GetAsyncKeyState.
For 1 button its easy ...
x = GetAsyncKeyState(16) then
bla bla
but how do i make it so that i have to press and hold shift first and then the key to execute the code.
Quick One?
How do I call a subroutine from another function?
Also, does a click event have to be on the form that the object is on or can it be defined as public in another module?
Quick Q
I have used keypress events many times before but ever since i started using bitblt i couldnt seem to get a couple to work:
In this situation i have this in my form under keydown, and keyprieview is set to true:
If Shift = vbKeyShift And KeyCode = vbKeyNumpad1 Then
Direction = 6
DATTACK1
End If
If KeyCode = vbKeyNumpad1 Then Direction = 7
When I hit numpad 1 the direction turns to 7 but when i hold shift and 1 nothing happens at all... Its probably not due to me using bitblt but Is there somthing im doing wrong? why cant i get shift events to work to work....
Quick Help, Im New
Hi,
im making a programme, that will automatically delete tempory internet files, history, etc, at the click of a button,
how do i like a button to a command?
and how do i link a buton to a anougher form?
i will read up on all this but i dont no any decent easy to use sites
Help! Quick!
I'm using a datagrid because a user can type freely in it. However, when it has enough records to run off the page, referencing their row number gives and error. Is there anyway around this? Or, is there some option that will allow a user to type freely in a mshflexgrd?
Thank you so much!
Need Help Quick
I have a problem and need help. I have a form that displays database items in a field. I also have a dialog to add new fields. What I want to happen is the user to be able to add a recordset, but no recordsets to be shown. For example, on a normal form it would have the data1 visible and they could view all the recordsets. Mine is no visible and I don't want them to see anything. All I want them to do is enter info into 3 textboxes and hit ok. They should never be able to see what is in the database.
I tried a data1.addnew at the form_load subroutine and then making the ok button just update, but that didn't work.
Any suggestions?
Some Quick Help
Im not sure if this in the right section.
I wanted to know how to display a window on a form using rss I need a simple scrollable window on my main form that will list a blog rss feed. Im using studio 2005 I used to use vb6 either one I dont know how to display this info on a form thanks for any help
PLEASE, Need A Quick HELP
Hello,
I am trying to use the following code given bu someone here in this forum. My question is since I have 25 or more forms in my application, how can I define a GLOBAL TIMER, that I can enable or disable from any form in the entire application.
I am trying to see if I can write a public function or procedure that can be used from any where in the entire application or do I have to write the same code in every form in the application.
Any help is greatly appreciated, thanks.
Code:
Public bNeedLogin As Boolean
Set bNeedLogin = False 'when you do your initial login
Dim iSeconds As Integer
Private Sub Form_Activate()
'whatever you do here if you do anything, like making the user log in
Me.KeyPreview = True ' catch every keypress on the form
Timer1.Interval = 1000 ' 1000ms = 1 second
' maximum timer time is 32,767ms or 32.767 seconds
Timer1.Enabled = True ' start the timer going
End Sub
Private Sub Timer1_Timer()
iSeconds = iSeconds + 1 ' one more second has passed
If iSeconds = 300 Then '300 seconds = 5 minutes - adjust for the time you need
iSeconds = 0
Timer1.Enabled = False ' we don't need this until the next keypress
bNeedLogin = True ' at the next keypress, we'll need a login
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If bNeedLogin Then
Me.KeyPreview = False ' so logging in doesn't send us back here
yourLoginSub ' make the user log in
bNeedLogin = False ' we don't need a login now
Me.KeyPreview = True
End If
iSeconds = 0
Timer1.Enabled = False
Timer1.Interval = 1000
Timer1.Enabled = True ' a key was pressed, so start counting again
End Sub
Quick Help Need Please
Hi hope all is well,
I am using inet to open some urls. It does it one at a time in a loop. I was wondering is there anyway to use inet or another control like winsock to open more than one url in one go??? so instead of opening 10 urls one after the other, open 10 in one go in the time it would normal take to do 1??
Big thanks in advance
|
TRACKER
