Post your Vb 6.0 Questions Here

I have not thought of it,maybe i will research for it and get back to u.

If u are using MSHFrexgrid, put data in it and call this function

Public Sub PrintMsh(Mhs As Control, Optional KIM As Integer)
If Global_Can_Change_Setting = False Then
MsgBox "You don't have right to export your report to excel", vbCritical, "Right violated"

Exit Sub
End If

If MsgBox("Are you sure you want to export the data to excel", vbQuestion + vbYesNo, "Choose either yes or no") = vbNo Then Exit Sub

On Error GoTo errh
Dim D As Object, K As Long, j As Long
Set D = CreateObject("Excel.Application")
D.Visible = True
D.Workbooks.Add
Dim II As Long
Dim i9 As Long

Dim i8 As Integer
i8 = CInt(Mhs.Rows / 65536) - 3
For K = 1 To i8
D.Worksheets.Add
Next K

i8 = 1
i9 = 65536
II = 1
Dim M As Long
M = 1
Dim DF0 As Integer
If KIM <> 0 Then DF0 = KIM + 1

If KIM = 0 Then DF0 = KIM + 1

For K = 0 To Mhs.Rows - 1
If K = i9 Then
II = II + 1: i9 = i9 + 65536: M = 1
If II = i8 Then i8 = i8 + 1:

D.Worksheets(II).Columns.Font.Size = 8
D.Worksheets(II).Rows(1).Font.Bold = True
D.Worksheets(II).Rows.AutoFit
D.Worksheets(II).Columns.AutoFit
End If



For j = 1 To Mhs.Cols - DF0

D.Worksheets(II).Cells(M, j + 1) = Trim(Mhs.TextMatrix(K, j))

Next j

D.Worksheets(II).Cells(M, 1) = M - 1
M = M + 1
Next K

D.Worksheets(II).Cells(1, 1) = "S/N"

D.Worksheets(II).Columns.Font.Size = 8
D.Worksheets(II).Rows(1).Font.Bold = True
D.Worksheets(II).Rows.AutoFit
D.Worksheets(II).Columns.AutoFit
Exit Sub
errh:
End Sub

Before you use datareport you have to make connection to a database by clicking at project menu and from ActiveX submenu and click at more Activex desinger fro then you click at "Data Environment"

1. make connections and add command
2. Select the table or text and set your SQL to enable you lay your structure
3. After that you go back to the project and click at add datareport
4. From your Command which contains + sign containing fields carry it into the datareport and modify it the way you want it to be.
5. To pass SQl from run-time
Dataenvironment1.rsCommand1.Open SQL ,Connectionstring
Dataenvironment1.Commands.Item(1).CommandText = SQL
Dataenvironment1.Commands.Item(1).Execute

to show the report and print from there
Datareport1.show
 to print directlty

Datareport1.PrintReport

It will display the recordset for you.


If you want to learn more of complex sql you need to buy book and read.
Thanks

U need third party software that will enable you with already made Icons from there you design your own.

Icons are normally 16X16 or 24X24 or there about.

Design a rich image and save in say your c:\ drive then open your splash screen and goto splash screen property window.
You scroll and see Picture ,  click at ,  and navigate to your c and select the image and click open and it will replace the color of your splash screen.

Thanks

Yes put it in command button click procedure event.
say
private sub Command1_Click()
'your code goes here
end sub

What you are facing is simply OS version problem.
This was common during the time of windows 98-XP until service park 1 XP.
But any solution written in Service park 2 and installing on service park 1 will still give same problem.

If you cant upgrade the system to service park 2, the u have to install VB in the system before you can installing  your program, maybe after you uninstall vb.

Please let me know if u still have problem.

Take care and remain blessed.

it was ok. my questn is? can this b cause by runtime virtual component 4 vb?

Datagrid is different to MSHFLexgrid.
MSHFrexgrid  gives you flexibility to used it.
Datagrid allows u to bind and things like dat.

MSHFrexgrid is like Excel worksheet where u reference row and column with an index number
Eg. 1
If you want to enter data in the first cell you code

MSHFlexGrid1.TextMatrix(RowsNo,ColNo)="Am a good programmer"
OR

MSHFrexgrid.row=1
MSHFrexgrid.col=1
MSHFrexgrid.text="Am a good programmer"

eg 2
If you want to create 10 rows and 5 Columns and put numbers in them see below
MSHFrexgrid.rows=10
MSHFrexgrid.cols=5

Dim J as Integer,I as integer

FOR J=1 to MSHFrexgrid.rows-1
      for I=1 to MSHFrexgrid.cols-1
        MSHFlexGrid1.TextMatrix(J,I)= J & " * " & I & "=" &   J * I
      Next I
Next J


Eg 3. If you want to display the value of the cell clicked

Private Sub MSHFlexGrid1_Click()
MsgBox MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, MSHFlexGrid1.Col)

End Sub


Hope you can know it now.

If you need to discuss with me and probably see me in Abuja call 08036025235 take care and remain blessed.

plz  Help me, i am working on a project that involve securing  the system, what i intend to achieve now is how do i create a logon screen that come immediately after window XP/vistas login, it must prompt the user for user name and password and authenticating it. the help i really need is what function or code do i use to bring up my own login screen after window login screen.

U cannt for now delare the size of an integr variable ince it fixed to 32(6)@@@. @ ign means three other number I dont know while (6) means am not sure whether 32 or 36 so find out.
If what u are looking for is how to delare a variable an integer then
Dim K as Integer

 TO make  23.4378 it displays 23.44 in a textbox then
Text1.text=format("23.4378","0,0.00")


Please will reply you soonest.

www.4shared.com
type vb turtorial then you download a you like.
If you are looking for codes then type www.pscode.com,www.vbourcecode.com etc
Just help yourself you are with your solution with your hands overthere.

Thank God.

Well, I dont think it is easy but anything is possible to those who believe. I hv thought abou it, tried it but got another Idea and abandone it there.
When U embed Access Database, Read & write would be blocked except you take it out to its real world (Drive or folder) then you can connect to it and do whatever you want.
Anyway you may try it out.

Your second question is possible but u mixed the question up. U maynot need to hv the picture store again in the database since it already in the drive C:

This is the best way so far to handle the picture thing except where the security is neccesary.

Create a folder where you will store the you pictures and then Create a field in the data that will be bearing the unique picture name with its extension name.
Then on accessing the field it will give you the name of the picture in your folder the u now add the folder path and complete the programn like below
picture1.picture=loadpicture(App.path & "\" & <Picture name>)

Then this will display the picture.
Incase you dont understand this, I will write the program for u.

Hello, Please can anybody give me clues about DELPHI programming language?

I dont know DelPhi Programming Sir, you may google it out.
Thanks

I need 2 no more about vb plz anybdy can hlp me out i gat an assignment on it