Visual Basic

Re: Save and load from .txt file

27-Mar-06 7:19

The image does not contain information on from what file it was loaded.

---
b { font-weight: normal; }

Christian Graus27-Mar-06 8:47

Christian Graus

27-Mar-06 8:47

campbells wrote:
when i see the debugging process most value bring it was 0 or null....

How do you mean ? You're value for num is always 0 ?

campbells wrote:
sory to said that i cant use the "for loop" cause i cant use too much array where my system cannot handle with it so used in the old method.

Rubbish. This is just a pile of rubbish, sorry.

The core problem is that the code is a mess. Hard to read, hard to maintain, if a single extra line ends up in the text file, it will all fall over. Your data should be comma delimited so that one line of text is one record, that would make things a lot better than they are now. Then you should be using string.split to turn that into an array of values, and a switch statement to read the data based on the first value.

Christian Graus - Microsoft MVP - C++

problem solve!! ya huuuuuuuu

campbells27-Mar-06 17:57

campbells

27-Mar-06 17:57

ohh~ i solve the problem!! is nothing wrong with my code but is my label set to visible false when my form load so i cant see anything hahahah :P

Internet explorer script error!!!!

Hari Om Prakash Sharma27-Mar-06 0:38

Hari Om Prakash Sharma

27-Mar-06 0:38

i hav installed VS.NET2005 Team suite last week.When i goto MSDN help is shows followng error window message:

Error: Could not complete the operation due to error 80041001
Im using XP-SP2,IE7.
plz help, thanks in advance

-- modified at 8:43 Monday 27th March, 2006

Re: Internet explorer script error!!!!

Dave Kreskowiak27-Mar-06 6:04

Dave Kreskowiak

27-Mar-06 6:04

Well, two things. First, IE7 is in Beta and is not garanteed to work with the Help System. So go back to IE6 before you continue to troublshoot this problem. Second, IIRC, 80041001 is akin to "File not found" or some other reason that a file could not be opened. This could be permissions issues, path not found, a bad installation (try reinstalling the MSDN library), corrupted file, ...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Create Image object from Graphics object - how?

nzmike26-Mar-06 23:26

nzmike

26-Mar-06 23:26

Hi all,

I have a little app I'm writing to crop images and so far it works - except that once I've created a cropped version of my original image (as a Bitmap or Graphics object) I can't then convert it into an Image object to reshow in my PictureBox control.

Some background: first I load the jpeg image into an Image object then assign it to the PictureBox. I then use the MouseUp, MouseDrag and MouseDown events to allow the user to draw a rectangle on the PictureBox.... when the user clicks a crop button I do the code below:

Dim x, y, w, h As Single

'These variables are from the mouse positions caught with MouseUp and MouseDown
'on the PictureBox control which is showing the image loaded from a JPG file.
'They define the rectangle the user has drawn on the Image in the PictureBox.
x = intMouseXStart
y = intMouseYStart
x2 = intMouseXEnd
y2 = intMouseYEnd
w = intMouseXEnd - intMouseXStart
h = intMouseYEnd - intMouseYStart

'Get the source bitmap from the PictureBox control.
Dim bm_source As New Bitmap(picImage.Image)

' Create parallelogram for extracting original image.
Dim ulCorner1 As New PointF(x, y)
Dim urCorner1 As New PointF(x2, y)
Dim llCorner1 As New PointF(x, y2)
Dim destPara1 As PointF() = {ulCorner1, urCorner1, llCorner1}

'Create rectangle as the size of the source area of the image to crop
Dim srcRect As New RectangleF(x, y, w, h)

'Clear the PictureBox and display the cropped image
Dim g As Graphics = Graphics.FromHwnd(picImage.Handle)
g.Clear(picImage.BackColor)
g.DrawImage(bm_source, destPara1, srcRect, GraphicsUnit.Pixel)

So, basically I want to take what the last line above does and create an Image object out of it so I can then reassign it to the PictureBox control and do other stuff with it... I've tried all sorts of things but can't work it out - any help would be appreciated.

TIA...

Mike

-- modified at 5:32 Monday 27th March, 2006

Re: Create Image object from Graphics object - how?

Guffa26-Mar-06 23:35

Re: Create Image object from Graphics object - how?

26-Mar-06 23:35

Why do you wan't to create an image object to assign to the control?

You are drawing on the image object in the control, so creating a new image object would mean that you simply duplicate the image in the control and replace the image in the control with the identical copy of it. Nothing is accomplished but a waste of resources...

---
b { font-weight: normal; }

nzmike27-Mar-06 19:51

nzmike

27-Mar-06 19:51

I guess you're right - problem is my little crop app is part of a bigger app where I have quite a few tabs and dialogs where I want to use the same Image object so I was hoping to convert the final graphics object back into an Image for that reason. Guess I'll just have to either save it to a temp file and load it back in (not efficient!) or just change my whole app to use a graphics object rather than an Image... bit of a nuisance though.

The thing is that you can create a Bitmap or Graphics object from an Image object but you don't seem to be able to go the other way... that's what I really wanted to know.

Cheers,

Mike

Re: Create Image object from Graphics object - how?

Guffa30-Mar-06 0:57

30-Mar-06 0:57

You can't use a Graphics object instead of an image. A graphics object doesn't have any canvas of it's own, it just draws on other stuff, like a Bitmap object or the screen. When you create a graphics object for an image, you don't convert the image into a graphics object, you just set the graphics up for drawing on the image. As the graphics object doesn't hold any image data itself, it can't be converted into an image.

There is no problem in sharing the same image object between several controls. You only have to invalidate all the controls that use the image for any changes in the image to show up in the controls.

---
b { font-weight: normal; }

Date by Week nr?

Snowjim26-Mar-06 22:45

26-Mar-06 22:45

Hey

I have tryed to get date(Monday) by a week nr and year but this do not always work.

Here is my code

<br />
    Public Function getDateByWeekNr(ByVal inWeekNr As Integer, ByVal inYear As Integer) As DateTime<br />
        Dim cal As New System.Globalization.GregorianCalendar<br />
        Dim dTime As DateTime<br />
<br />
        dTime = New DateTime(inYear, 1, 1)<br />
<br />
        For i As Integer = 0 To 365<br />
            If dTime.DayOfWeek = DayOfWeek.Monday Then<br />
                Exit For<br />
            Else<br />
                dTime = dTime.Subtract(New TimeSpan(24, 0, 0))<br />
            End If<br />
        Next<br />
<br />
        Return cal.AddWeeks(dTime, inWeekNr)<br />
    End Function<br />

what am i doing wrong?

sathish s27-Mar-06 0:58

sathish s

27-Mar-06 0:58

You could use something like this
[CODE]
Dim dTime As DateTime
dTime = New DateTime(2006, 1, 1)
Dim wkCtr As Integer
Dim inWk As Integer

While 1
If dTime.DayOfWeek = DayOfWeek.Monday Then
wkCtr += 1
End If
If dTime.DayOfWeek = DayOfWeek.Monday And wkCtr = inWk Then
Exit While
End If
dTime = dTime.AddDays(1)
End While
[/CODE]

Snowjim27-Mar-06 19:18

27-Mar-06 19:18

Thanks, i will tray that, is this working even if the1 week of a year started last year?

Snowjim27-Mar-06 19:19

27-Mar-06 19:19

Thanks, i will try that, is this working even if the1 week of a year started last year?

Snowjim27-Mar-06 19:19

27-Mar-06 19:19

Thanks, i will try that, is this working even if the week of a year started last year?

sathish s27-Mar-06 19:57

sathish s

27-Mar-06 19:57

Glad to help you. This will give you the Nth Monday of an year.

logon times

denis7426-Mar-06 22:37

denis74

26-Mar-06 22:37

Is it possible to determine user's logon time using vb scripts

Re: logon times

Dave Kreskowiak27-Mar-06 5:52

Dave Kreskowiak

27-Mar-06 5:52

This question isn't as simple as it sounds...

Is this how long they've been logged on to the local workstation? When the last recorded logon time was? Logged onto which server(s)? Is this an Active Directory environment??

Dandelions, VCR Clocks, and Last Logon Times: These are a Few of Our Least Favorite Things[^]
Hey, Scripting Guy![^]

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: logon times

denis7428-Mar-06 0:18

denis74

28-Mar-06 0:18

Hi, thanks for the reply,i need to determine the time users log on to the domain in an active directory environment.

"Set objUser = GetObject("LDAP://CN=******)
Set objLastLogon = objUser.Get("lastLogonTimestamp")

intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
intLastLogonTime = intLastLogonTime / 1440

Wscript.Echo "Last logon time: " & intLastLogonTime + #1/1/1601# "

I got this on the microsoft website but it hasn't worked.

Re: logon times

Dave Kreskowiak28-Mar-06 2:53

Dave Kreskowiak

28-Mar-06 2:53

Well, the lastLogonTimestamp property is not replicated between domain controllers very often, measured in days, depending on policy settings! So, each domain controller can have a different value for the same user!!

There is no event the says this value changed either so you'll have to poll each and every user object on each and every domain controller to get an accurate time for each user. This is VERY resource intensive on both the network and the domain controllers. If you do this in a production environment, you have to be VERY careful about how often you poll for this information.

Also, there is a known problem with the lastLogonTimestamp and NTLM authentications... http://support.microsoft.com/default.aspx?scid=kb;en-us;886705[^].

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

IO stream and arabic

illusionFinder26-Mar-06 22:24

illusionFinder

26-Mar-06 22:24

hi there,
I am creating a text file in VB.Net and I am writing arabic characters inside, but my problem is that when I read this text file using vb6 on other machine I read wrong characters , does anybody know why
thanks alot

albCode26-Mar-06 22:36

albCode

26-Mar-06 22:36

they machines doen't have ur arabic font.

_____________________

Proud to be Albanian
_____________________

Guffa26-Mar-06 22:51

26-Mar-06 22:51

You have to write the file using the same encoding as the VB6 program will use to read it. Probably UTF8.

---
b { font-weight: normal; }

illusionFinder26-Mar-06 22:59

illusionFinder

26-Mar-06 22:59

hi thanks for the rply but I am using writexml function and it doesn't have encoding options, so what shall I do

thanks

Guffa26-Mar-06 23:27