|
Remove listitem:
ListView1.ListItems.Remove(lngI)
As for the form:
The QueryUnload event has a second parameter called
UnloadMode. By testing this mode, the program will know what is causing
the form to unload. Then you can decide what you want to do, etc
These are the constants and a brief explanation:
Select Case UnloadMode
Case vbFormControlMenu
'The "X" button or the "Close" menu
'from the form's System menu.
Case vbFormCode
'The Unload statement is called from code.
Case vbAppWindows
'Windows is shutting down.
Case vbAppTaskManager
'The Task Manager is closing the app.
Case vbFormMDIForm
'The form is an MDI child and the
'MDI form is closing.
Case vbFormOwner
'The form is closing because its
'owner is closing.
End Select
"Since we don't know where we're going, we have to stick together in case someone gets there." - Ken Kesey 1935 - 2001
|
|
|
|
|
Hi
Thanks for the reply.
About the form i really meant ... When i want to show a form within an MDI parent (the form has property MDI child: false)... Then that form is not shown within the MDI but apart. I want to be able to show the form nice in the MDI parent without making it MDI child. Because i want to be able to 'DoModal()' the form.
I hope you understand my problem :x
Greetings
Jens
|
|
|
|
|
You can solve this problem programmatically using the mouseover event. When the mouse escapes the form: put it back on the form. As for the form itself, when you move the non MDI form reset the left and top properties to keep the non mdi form within the MDI form. Hope this helps.
Grtz Guus
|
|
|
|
|
Well, i don't move the form myself ... I just show the form that has to be displayed within the MDI parent itself. So it has to behave like an MDI child but it needs to be displayed modally.
I'll explain situation. I have a menu in the MDI parent .. When i click a menu option .. i want a form to display that is not mdi child. So the form is not shown within the mdi child, but minimised.
Because i don't know well what you meant
Greetings
Jens
|
|
|
|
|
![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif)
How do lock a file in VB6 without hardcoding to append a .lock ext to the file name?
How do i unlock? Pls help
|
|
|
|
|
What do you mean by lock? It doesn't sound like the standard definition of the term. Besides, using .lock just changes the file extension, not any exclusive rights to the file.
Are you trying to get exclusive access to the file? If so, then your Open statement should look something like:
Open "filename.ext" For Binary Access Read Lock Read Write As #1
Use whatever File Mode and Access you want, but the important part is the Lock modifier.
RageInTheMachine9532
|
|
|
|
|
hi RageInTheMachine9532,
you r right i dint mean the std locking of files. i want many app instances to share a folder of .tif files. if app1 is using a file, it renames it with a .lock ext so app2 knows it is being modified by checking the ext.
before an app exits, it renames files its been using from .lock to .tif.
problem is if app1 crashes, the files remain with a .lock ext n neither app1 nor app2 can use them!
how do i handle this? i mean without resorting to the normal windows locking..
![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
|
|
|
|
|
Well, the locking is the only "sure" way to control file access and you don't have to deal with renaming stuff back when you crash.
The problem you have is this:
When AppInstance1 checks for the availability of File1.tif, it's there. The next step, is for it to rename File1.tif to File1.locked. But, What if AppInstance2 found that File1.tif was available at (nearly) the same time, say, between AppInstance1 finding the file and renaming it? In this case, BOTH instances will find the file, but only one will succeed in renaming it. How is this case handled?
It's too much of a pain to write your own file locking scheme when Windows has locking built in. It also has the advantage of being "thread safe", where your custom scheme does not.
RageInTheMachine9532
|
|
|
|
|
hi..i have still problem with chart,the problem how too generate graph from database,example access
adhizz
|
|
|
|
|
hi Adhizzz. i hope this helps
Print a Microsoft Access report from VB 6.0
As you may know, Microsoft Access provides a much more robust reporting
system than Visual Basic. As a result, if you use Access as a back-end
to your application, you may want to print Access reports from your VB
application. Fortunately, you can do just that with Automation.
The following code shows one way to do so, using late binding. remember to replace dbName and rptName with correct values:
Dim objAccess As Object
Private Sub Command1_Click()
Dim dbName As String
Dim rptName As String
Dim Preview As Long
Const acNormal = 0
Const acPreview = 2
dbName = "D:\PathToDB\db1.mdb"
rptName = "MyReportName"
Preview = acPreview 'acNormal
With objAccess
.OpenCurrentDatabase filepath:=dbName
If Preview = acPreview Then
.Visible = True
.DoCmd.OpenReport rptName, Preview
Else
.DoCmd.OpenReport rptName
End If
End With
End Sub
Private Sub Form_Load()
Set objAccess = CreateObject("Access.Application")
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
objAccess.Quit
On Error GoTo 0
Set objAccess = Nothing
End Sub
|
|
|
|
|
hi Adhizzz. i hope this helps
Print a Microsoft Access report from VB 6.0
As you may know, Microsoft Access provides a much more robust reporting
system than Visual Basic. As a result, if you use Access as a back-end
to your application, you may want to print Access reports from your VB
application. Fortunately, you can do just that with Automation.
The following code shows one way to do so, using late binding. remember to replace dbName and rptName with correct values:
Dim objAccess As Object
Private Sub Command1_Click()
Dim dbName As String
Dim rptName As String
Dim Preview As Long
Const acNormal = 0
Const acPreview = 2
dbName = "D:\PathToDB\db1.mdb"
rptName = "MyReportName"
Preview = acPreview 'acNormal
With objAccess
.OpenCurrentDatabase filepath:=dbName
If Preview = acPreview Then
.Visible = True
.DoCmd.OpenReport rptName, Preview
Else
.DoCmd.OpenReport rptName
End If
End With
End Sub
Private Sub Form_Load()
Set objAccess = CreateObject("Access.Application")
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
objAccess.Quit
On Error GoTo 0
Set objAccess = Nothing
End Sub
|
|
|
|
|
Hello Sir,
I have been assigned a task to auto mate a school system. i.e. Timetabling issues, Teacher Replacemts, Employee Attendances(HR), Exam control and Student Records...
although .. i have analysed almost everything.. database tables are finalized as well...
but coz of being untouch with all this development issue since a year.. i am just strugling as to how and where to start design and development of the software....?
if anyone having idea about this kind of software? please help me ...
or i would be grateful if anyone can come up and exchange emails with me regarding this project... i mean, the one, who can help me step by step..as how to start
i'll be using VB.NET and SQL Server...
thanks ..
All Praises are for the Lord of the universe...
Regards,
Tahir
|
|
|
|
|
My advise to you is prioritize. Seems to me that the functionalities you describe can best be split in several solitary programs. Prioritize and start from there.
Grtz, Guus
|
|
|
|
|
Yes! I am trying to priortize the functionalities...
looking for Teacher and Student Records Managent at first hand...
but still kind of confused.. 
any more suggestions please?
thank you
|
|
|
|
|
I'm doing a project to write a system using Vb6.0. The system is very simple but for me is very hard. The most difficult part is to comes out with chart. The chart is to analyze the stocks. The system is a system for a shop seeling clothes one..Anyone can help pls reply. Thanks
|
|
|
|
|
Your question puzzles me slightly. But from what i understand is that you need to produce some sort of chart.
Excel is equipped with a wide range of charts. Use code to populate an Excel spreadsheet and open it.
Grtz Guus
|
|
|
|
|
I have written a small script in VBA which I need to deploy to a number of machines on a network.
Is there an easier way other than manually importing a .bas file into Outlook?
I found reference to a program called Desktop.VBA but every link on every site I found pointed to the same dead server...
Any and all help would be greatly appreciated.
Cheers,
Simon.
|
|
|
|
|
I need help i have a firewall, and some one keeps trying to connect to my comp, i need help getting back at this person so if anyone has any ideas please let me know? I have the persons IP Address. Thanks guys for all help
|
|
|
|
|
Simple. Find out who owns the IP address this person is using and report them. ANything you do to the other guy carries the risk that your going to get busted.\
RageInTheMachine9532
|
|
|
|
|
alright i appreciate that, and i did figuare out how to report it and i already did. I hope that works and again thanks for your help
|
|
|
|
|
plz sir help me how can i connect with data base with out using controls.
|
|
|
|
|
Take a look at the System.Data namespace.
If you are using SQL Server, read about System.Data.SqlClient, if not, System.Data.OleDB.
Free your mind...
|
|
|
|
|
Or when you are using a connection string in VB go to http://www.connectionstring.com
Grtz Guus
|
|
|
|
|
hello i got little problem
okay u now see the main form
i click button
it opens another form lets says its form2
in form2 there is also button than open form3
in form3 there is close button
when i click on it
it close both form2 and 3
i want only to close form3 and let form2 opened?
how can i do this?
im using
Dim something As new form2
something.show
somebody help me plz
thanks
|
|
|
|
|
hi samerali,
i don get your problem. with form1, form2 n form3 as u describe, this code works for me the way u want. assume each form has a button1:
'//in form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NewChild As New Form2()
'Display the new form.
NewChild.Show()
End Sub
'//form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NewChild As New Form3()
'Display the new form.
NewChild.Show()
End Sub
'//form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
