Visual Basic

18-Jun-08 19:01

All,

In my application there is a form with multiple tabs. Each tab contains textboxes, buttons & grids. I want to lock all the controls (else make readonly) in that form. How i can achieve that? Any inputs would be appreciated.

Thanks in advance

Sebastian

Tom Deketelaere18-Jun-08 20:55

18-Jun-08 20:55

run thru all the controls using me.controls

check if the controls are container controls using control.haschildren
TRUE: run thru those controls and do the same check
FALSE: set enable / lock / readonly (according to what you want) based on the type of control it is (a select case with a gettype(control).tostring (case gettype(textbox).tostring) should do it)

in the true part I sugest you call a second function (since the check there has to be able to call itself again)

so in code it would look something like this
for each c as control in me.controls
if c.haschildren = true then
subfunction(c)
else
c.enable= false
end if
next

subfunction (subc as control)
for each c as control in subc.controls
if c.haschildren = true then
subfunction(c)
else
c.enable= false
end if
next

(this is out of my head and not tested mearly as an illustration)

or you could just lock the containers controls (this will lock all controls in it) but that's not as nice

hope this helps

Sebastian T Xavier20-Jun-08 4:24

20-Jun-08 4:24

Thanks for your reply...

Now the problem is , this code will disable the form also(i.e. the minimze, maximize & restore buttons of the form); How i can resolve this issue...

Please suggest...thanks in advance...

Sebastian

Tom Deketelaere23-Jun-08 1:09

23-Jun-08 1:09

can you post the code you used so I can have a better picture of what is going on

from what you said I think you locked the first iteration aswel (this is the form)

see if you past the form to the subfunction or not

first step is to iterate thru all the controls in me.controls
second step is to check if those controls have children
thirth step is to lock the control

without you'r code I can't really tell you more
If you post you'r code (just the 2 functions for locking) here I'll see if I can find the mistake

PS: sorry for the late answer but I was out the whole weekend

Sebastian T Xavier25-Jun-08 21:35

25-Jun-08 21:35

private void button1_Click(object sender, EventArgs e) { foreach (Control cntl in this.Controls) { if (cntl.HasChildren) { lockControls(cntl); } else { cntl.Enabled = false; } } }

private void lockControls(Control subcntl) { foreach (Control Ncntl in subcntl.Controls) { if (Ncntl.HasChildren) { lockControls(Ncntl); } else { Ncntl.Enabled = false;
} } }

Thanks

sebastian

Tom Deketelaere25-Jun-08 21:54

25-Jun-08 21:54

I can't seem to find anything wrong with this code

have you tryed to debug step by step and see when and where the form gets locked?

besides that you might want to dubble check you form property's to make shure you don't lock the form there

I'v tryed your code in a fresh project at my end and it works perfectly (form doesn't get disabled) so my suggestion would be to check if you don't disable you'r form somewhere else (in designer or code)

hope this helps

Sebastian T Xavier25-Jun-08 23:04

25-Jun-08 23:04

Here the problem is , this code will disable the form also(i.e. the minimze, maximize & restore buttons of the form); How i can resolve this issue...provided...I am not disabling the form anywhere else...

Thanks once again

Tom Deketelaere26-Jun-08 3:10

Wrong datetime will get when using Date in vb6

26-Jun-08 3:10

I can't tell you what could be wrong with it since I can't duplicate the problem

I created a new project added several controls to a form
copy - pasted your code excatly and ran the form
the form doesn't get disabled so I don't think there is anything wrong with this code

as a last resort you could always add the following code at the end of the function:

me.enable=true

cocoonwls18-Jun-08 15:39

cocoonwls

18-Jun-08 15:39

hi all,

In my vb6 application, i will use Date to get the current date and store it into my database.But sometime when i check in the database, the date will be different from what i see in my computer date. I am not sure what was happen.

Any help are welcome,Thank you.

Note:In my situation, i have 2 (A and B), which application B will map to application A's database where both of them will get the wrong date.

regards
cocoonwls

nishkarsh_k18-Jun-08 17:05

18-Jun-08 17:05

Check the Date format used in DB to store date and the format in which you are sending / displaying...

In VB6 you can use "format" command to format ur date before you send / display

Good luck

cocoonwls18-Jun-08 18:49

cocoonwls

18-Jun-08 18:49

hi nisharsh_k,

Thanks for reply. May be i am not describe my question clearly.
For example, the system date is 19-06-2008, but i will get the date 11-05-08 in my database.

So, according to your suggestion, is "format" can be apply in this situation?

Thank you in advance.

regards
cocoonwls I

nishkarsh_k18-Jun-08 22:14

18-Jun-08 22:14

i think format will help u in this situation

As you had written...

cocoonwls wrote:
For example, the system date is 19-06-2008, but i will get the date 11-05-08 in my database.

Hear ur system date format is "dd-MM-YYYY"

cocoonwls wrote:
19-06-2008

and ur DB date is "dd-MM-YY"

cocoonwls wrote:
11-05-08

this indicates that when you send date in a query it is not treated the way you expect as it is too long.... i am not sure how ur DB is looking at it (truncating or something) and storing it differently

good luck

cocoonwls22-Jun-08 16:45

cocoonwls

22-Jun-08 16:45

Thanks your reply. I will check it again.But for this problem, it is not happen frequently,but just sometime.. Confused | :confused:

Tom Deketelaere18-Jun-08 20:58

18-Jun-08 20:58

depending on the database you use, use the format function

SQL (probabaly oracle too): Format(date, "yyyyMMdd")

Access: Format(date, "yyyy/MM/dd")

Normally the sql one should be universal for all (or most) database's

hope this helps

images in vb.net

salam ellayan18-Jun-08 10:37

18-Jun-08 10:37

how can i convert image exists in picturebox into bitstream using array function.

nishkarsh_k18-Jun-08 17:01

18-Jun-08 17:01

Hi...
i do not know what exactly you mean by array function... I am taking it as you want the picture to be stored in a array of bytes...

Plz look at the sample code...

'Define a memory stream
Dim ms As MemoryStream = New MemoryStream()

'Get the image into ms from picture box
pic.Image.Save(ms, pic.Image.RawFormat.Gif)

'Define a byte stream of length of memory stream and transfer the ms to it
Dim bytesA(CInt(ms.Length - 1)) As Byte

ms.Seek(0, SeekOrigin.Begin)
ms.Read(bytesA, 0, CInt(ms.Length))

ms.Dispose()

Good luck

salam ellayan18-Jun-08 22:42

18-Jun-08 22:42

i need to convert the image into points .

nishkarsh_k18-Jun-08 23:53

18-Jun-08 23:53

Ok... for that you have to read every pixel of the image and store the location and color of it...

I had not tried that out... but for sure it is possible...

But why do u want to do it that ways???

If u just need the image to be recreated at destination this will solve ur purpose..

Regards
Nishkarsh

salam ellayan19-Jun-08 22:23

19-Jun-08 22:23

i had tried , but i couldn't so i asked help
i want this this way cause i thought it is the easiest one
so plz if u've any ideas forward it to me and i'll be greatful
thanks anyway.

nishkarsh_k22-Jun-08 23:35

22-Jun-08 23:35

sorry for late reply... i was out in the weekend...

I can tel what i am doing.... My objective was to read the image as binary data and fire a query to store it and read back to display form a DB...

If this is of any use then i will send u the sample code...

salam ellayan23-Jun-08 4:29

23-Jun-08 4:29

thanx alot & am deeply sry for bothering you,
plz send me the sample code & i need the (Imports system *) that i can use it with images .
cause i couldn't run any code without it .
am not familliar with VB.net , but i've to learn it .
thanx anyway.

nishkarsh_k23-Jun-08 21:26

23-Jun-08 21:26

Code to read the IMAGE from PICTURE BOX

Imports System
Imports System.IO
Imports System.Text

'Declare a memory stream
Dim ms As MemoryStream = New MemoryStream()

'Get the image into ms from picture box (Treating it as a gif, you can chuse ur format)
picBox.Image.Save(ms, picBox.Image.RawFormat.Gif)

'Define a byte stream of length of memory stream and tranfer the ms to it
Dim bytes(CInt(ms.Length - 1)) As Byte

ms.Seek(0, SeekOrigin.Begin)
ms.Read(bytes, 0, CInt(ms.Length))

ms.Dispose()

So this code will make it sure that you have the image in a array of bytes and you can do what u want with it..

Once you read the picture back from DB as byte array you can display it as

Dim ar(dataLength) As Byte

myReader.GetBytes(0, 0, ar, 0, dataLength)
myReader.Close()

'Define a memory stream
Dim b As New MemoryStream(ar)

picBOx.Image = Image.FromStream(b)

b.Close()

Good Luck
Nishkarsh

salam ellayan24-Jun-08 3:23