baby lock

Visual Basic Language

‹ Visual Basic
- Archive
  - Windows Forms
  - ISV
  - Game
  - Smart Device
  - Dotnet
  - Visual Studio
  - VB
  - Windows Vista
  - Office
  - Architecture
  - Windows Live
  - SQL Server
  - SharePoint
  - VS 2008
  - Visual C#
  - IE
  - VC++
  - VFP
  - VS Express

- Previous
  - 1
    - Is the order in which you declare arrays significant? Thanks S_DS I would hope my variables were automatically placed in the next best available processor cache area that's available. I guess a better way to phrase my question is - In what order will my arrays be placed in the " code segment or block" Yeah thanks S_Man, happy spinning! I suppose with your name your also into web development! Tag: baby lock
  - 2
    - Copy directory and show progress Thanks Spotty that done the trick Didnt know that site existed-good one Davids Learning Tag: baby lock
  - 3
    - Transparent Colors Hello, How can i make a background of a picture transparent i read the thread: http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=441811&SiteID=1 but i didn't understand a thing, could anyone explain How could i paint it in the way they r saying. Thx Tag: baby lock
  - 4
    - Repositioning Controls in a Scrolled View Oh, it also appears that you're not taking the current autoscroll position into account. For instance, you should use something like: dgv.Top + ( Me .TabPage1.AutoScrollPosition.Y * -1) To account for the scroll position. This will give the Top location for the datagrid relative to the entire container instead of relative to the visible portion. Tag: baby lock
  - 5
    - TreeView Question Hi David, you can start with Me .TreeView1.SelectedNode to retrieve the selected node. This object will let you traverse the branch that the node belongs to. You might also want to use the Node.Tag property to store a reference to the datarow in question. This may facilitate access of the data from the treeview. Hope that helps. If not, could you explain you questions a bit more Tag: baby lock
  - 6
    - Horizontal Scroll Position Changes I have a user control with a Panel. At runtime I add some ListViews to Panel.Controls. (I have to add them in the reverse order that I want them to display. Is this normal ) I add a splitter between each of the ListViews, and all the controls are Dock.Left. After the controls are added, I change the width of the Panel so that it is about twice the width required to display the ListViews. This is so the user can change the width of individual ListViews. The problem I have is that when the form is first opened, the Panel is scrolled such that the last control -- actually the first added but the last in the sense that it is the right-most control -- is visible. If I scroll the panel so that the last control is no longer visible, then cause the form to lose focus, upon regaining focus the panel scrolls so that the last control is once again visible. What I would really like is for the Panel's Horizontal scrollbar to start at it's left-most position, and then stay whereever the user puts it thereafer, even after focus changes for the form. Any assistance would be appreciated. Thanks. Tag: baby lock
  - 7
    - Get print tray media We print most of our documents to plain paper, but have some that must print to perforated paper. We have the bins for the perforated paper set to a type of "pre-punched" to differentiate. (this setting is similar to setting one bin to letterhead). How do I get that media type setting for each tray on a printer so I can tell which tray to print each document to Tag: baby lock
  - 8
    - Data from access database to a String When i replace (" ColumnName ")) with the actual column name, it gives me an error like this "Error: ID" and ID is my column name, also tried with other names but none would work. Tag: baby lock
  - 9
    - Setup and Deployment from Command Line Usual Location would be D:\Program Files\Microsoft Visual Studio 8\Common7\IDE\Devenv.exe If your running the express versions then you wont have devenv on the machine. Tag: baby lock
  - 10
    - CliickOnce : Manifest may not be valid Thanks Eric, Step 3.d. seem to do the trick. I'd noticed the "SideBySide" (under Deployment) key before, but was reluctant to just blindly delete it. Many thanks, Scott Tag: baby lock
  - 11
    - Reading from Doc file onto a Reader Feng Chen, Thanks for your time, the link you provided me was helpful. But I need some more help. I was not able to figure out exactly how I would be able to retrieve data from the word document and even for that matter keep it on a clipboard. Can you or anyone please help me out in this Once again......... Thanks Feng Chen Vineed Tag: baby lock
  - 12
    - Write a program, which verifies that the procedure is properly written Write a procedure that takes an integer value and returns the number with its digit reversed. Write a program, which verifies that the procedure is properly written. Tag: baby lock
  - 13
    - VB Active X DLL fail on 64 bit while we use through VB script OK, using 32 bit DLL's on a 64 bit OS is going to cause you issues because they are a different bitness. So you cannot simply call a 32 bit COM component from a 64 bit application. You have 2 options, get 64 bit DLL's to use for your 64 bit application or compile x86 applications on the 64 bit machine. The 2nd is probably the more likely if you are using 3rd party DLL's etc. and this should be easily achieved by using the My Project -> Compile tab -> Advanced Settings -> Target CPU and setting it the x86 This then causes the compiler to generate an x86 binaries which are the same bitness as the referenced DLL's. It works through VB Script, VBA, VB6 and even .net framework 1.1 applications as all they know about is 32 bitness. However installing 2.0 an upwards of .NET framework on a 64 bit machines results in 32 and 64 bit frameworks being installed. Tag: baby lock
  - 14
    - Setting Today's Date by Default in a Function Thanks for replying, TaDa. Unfortunately, I don't think you understand fully what I am attempting to do. I need to do two things in the one function: If I pass a date to the function, return it's date code. If I pass Nothing to the function, return Today's date code. I can see from your code how I can do either in two separate functions, but I want to do both. Any further suggestions Thank you again! Tag: baby lock
  - 15
    - DateTimePicker and language Gpg, To avoid this behavior, trap the data before it is displayed in the control, and then change the data so that it is valid. For example, the following code traps the DBNull value and changes the value to a date value of January 1, 1800. This code uses event handlers with the DateTimePicker control to monitor when the value changes. If the value is null, the value is changed to January 1, 1800. Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim MyDataSet As New DataSet() Dim MyTable As New Data.DataTable( "dsTable" ) Dim MyColumn As New DataColumn( "HireDate" ) MyDataSet.Tables.Add(MyTable) MyColumn.AllowDBNull = True MyColumn.DataType = GetType (System.DateTime) MyTable.Columns.Add(MyColumn) Dim MyData(0) As Object MyTable.Rows.Add(MyData) Dim MyBinding As New Binding( "Value" , MyDataSet.Tables( "dsTable" ), "HireDate" ) AddHandler MyBinding.Format, AddressOf DTFormatter AddHandler MyBinding.Parse, AddressOf DTParser DateTimePicker1.DataBindings.Add(MyBinding) End Sub Private Sub DTFormatter( ByVal sender As Object , ByVal e As ConvertEventArgs) Dim b As Binding = CType (sender, Binding) If Not e.DesiredType Is GetType (DateTime) Then Return End If If e.value.GetType Is GetType (System.DBNull) Then e.value = CType ( "1/1/1800" , System.DateTime) End If End Sub Private Sub DTParser( ByVal sender As Object , ByVal e As ConvertEventArgs) If Not e.DesiredType Is GetType (DateTime) Then Return End If If Not e.value.GetType Is GetType (DateTime) Then Return End If Dim value As String = CType (e.Value, String ) If value.Equals( "1/1/1800" ) Then e.value = System.DBNull.value End If End Sub Tag: baby lock
  - 16
    - Get Default Printer Richard, Many thanks for your reply, and that works perfectly! I thought this should be straight forward, but all my searches didnt find anything. Thank you again Chris Tag: baby lock
- Next
  - 1
    - TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET Hi all, Could any one please tell what is the equivanet function of the TwipsToPixelsY, TwipsToPixelsX functions in VB.NET. These are supported by vb6 namespace if we use in .NET but i should not use VB6 in my project So please guide me what are the equivalents to these functions Regards, Tag: baby lock
  - 2
    - InnerCastExeption error. Hi! I wrote this code: Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If txtUserName.Text = "Test" & txtPassword.Text = "Test" Then Me.Close() Else Form2.Show() MsgBox("Wrong username or password." & vbCrLf & "Protection Continued") End If End Sub And when i try to run it (debug) i get InnerCastExeption error. How can i fix this //Greetings, Zeelia Tag: baby lock
  - 3
    - How can I check the Internet connection speed via code? Thank you Nofal Tag: baby lock
  - 4
    - bitmap to Picturebox throught network I have a System.Drawing.Bitmap and I want to display it to another program's picturebox throught a network (localy or internet). How can I do it Tag: baby lock
  - 5
    - An attempt was made to access a socket in a way forbidden by its access permissions Hi Mike, I have XP Professional operating system. Thanks, Dick Roose Tag: baby lock
  - 6
    - Sound You can also use.... My .Computer.Audio.Play(someFile) Tag: baby lock
  - 7
    - encrypting passwords in a database Hello, I am creating an application using vb windows applcation and using SQL 2005. I have a table of users, that contain there usernames and passwords. When a new user is added it stores all the passwords in clear text in the database. What is the best method to use to be able to crypt the passwords in the database. Also, when the user login, i have a sql statement that will compare the username and password that they enter in the login dialog box, to what is in the database. If the password is encryted, would I still be able to compare their password to see if they can still login. i.e. "Select * From Users Where LoginID=@LoginID And Password=@Password" Many thanks for any suggestions, Steve Tag: baby lock
  - 8
    - Print Preview Error thank you for your help, james. I have found a print component which more or less does the job (here is the URL, http://msdn2.microsoft.com/en-us/vbasic/aa701261.aspx ), but, i have discovered another problem. lets say that i want to print an A4 sized document using forms, using a print component. Everything works so far up to even having a print preview, unfortunately i am unable to set it to A4 size. Some help would be greatly appreciated. Thanks Tag: baby lock
  - 9
    - Textbox Focus From Form Load Many thanks for your prompt response. I have tried the alternatives you suggest without success. It��s important for user friendliness to have an input textbox focused when the forms loaded. It would be surprising to say the least if MS development engineers have omitted this. In vb6 setfocus worked fine. Help Please. Tag: baby lock
  - 10
    - What Language represents &H100& &H is a prefix put on a number to indicate it is a hex number. From MSDN The compiler normally construes an integer literal to be in the decimal (base 10) number system. You can force an integer literal to be hexadecimal (base 16) with the &H prefix, and you can force it to be octal (base 8) with the &O prefix. The digits following the prefix must be appropriate for the number system. The following table illustrates this. Number Base Prefix Valid Digit Values Example Hexadecimal (Base 16) &H 0-9 and A-F &HFFFF Octal (Base 8) &O 0-7 &077 Tag: baby lock
  - 11
    - newbie call errors Tip No.2 If you go to the project menu and add a MODULE with PUBLIC variables, you can then use them within every SUB or FUNCTION and within every FORM. >>>> Code Snippet Module Module1 Public myPublicInteger As Integer Public myPublicString As String 'etcetra.>>>> End Module Code Snippet Public Class Form1 'Sets the "myPublicString" to "Hello there!!" Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load myPublicString = "Hello there!!" End Sub 'Shows the same "myPublicString" in a message. Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show(myPublicString) End Sub End Class Use the above idea with caution. Insert the word PUBLIC if you like in the variable names if you want to keep track of their values easier as it easy for a SUB or a FUNCTION to change a value, especially if you have forgotten a particular SUB or FUNCTION changes it. Regards, S_DS Tag: baby lock
  - 12
    - REading emails from exchange 2000 Hi, I have looked everywhere but no luck. I really need to be able to read messages and save attachments from an inbox. I have only managed to open up my own inbox which is no use. Dim oApp As Outlook.Application = New Outlook.Application() Dim oMsg As Outlook.MailItem Dim oAtt As Outlook.Attachment Dim oNS As Outlook.NameSpace = oApp.GetNamespace( "mapi" ) Dim i As Integer Dim x As Integer Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) Dim oItems As Outlook.Items = oInbox.Items Dim count As Integer = oItems.Count Dim deletefile, savefile As Boolean oNS.Logon( "DevTest" , "password" , False , True ) I was hoping the ons.logon whould log me on to the "devTest" inbox but i guess the Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) is opening up my own default inbox how can I open up the dev test inbox many thanks Tag: baby lock
  - 13
    - Create Users to Windows 2003 Programatically (vb) Hi all, I'm trying to add users remotely to a Windows 2003 Standard using the command net.exe, but I just can't make it work. This is my code: Dim p As New Process p.StartInfo.UseShellExecute = False p.StartInfo.RedirectStandardError = True p.StartInfo.RedirectStandardInput = True p.StartInfo.RedirectStandardOutput = True p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo.Arguments = " user " & xUser & " " & xPass & " /ADD /ACTIVE:YES /EXPIRES:NEVER" p.StartInfo.WorkingDirectory = "C:\windows\system32" p.StartInfo.FileName = "net" p.Start() Dim sr As IO.StreamReader = p.StandardOutput Dim sb As New System.Text.StringBuilder( "" ) Dim sinput As String = "" Do Until sinput = "-1" sb.Append(sr.ReadLine() & ControlChars.CrLf) sinput = sr.Read Loop p.WaitForExit() p.Close() Return sb.ToString it doesn't return anything, and user is not created. If I change the following line, it returns perfectly the table of users: p.StartInfo.Arguments = " users" so what could the problem be Thanks in advance. George Tag: baby lock
  - 14
    - how do i populate a checklistbox from a database in MSSQL server? Ok, Here is the code: Form: Option Strict On Option Explicit On Public Class frmPatient ' Declaring module level variables Private oldTime As Integer = 0 Private newTime As Integer = 0 Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeString & " " & DateString End Sub Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me .Close() End Sub Private Sub frmPatient_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load 'TODO: This line of code loads data into the 'Ntier_SCOADataSet.Resources' table. You can move, or remove it, as needed. Me .ResourcesTableAdapter.Fill( Me .Ntier_SCOADataSet.Resources) ' This sub handles the initial reading of text file. Dim Patient_Info As New List( Of String ) Dim record As String Patient_Info = Module1.ReadTextFile() ' Determine if record should be appended based on timestamp Integer .TryParse(Patient_Info(0), newTime) If newTime > oldTime Or oldTime = 0 Then ' Concatenate strings record = Module1.ConcatenateStrings(Patient_Info) ' Add record to appropriate list Module1.AppendRecord(record, Patient_Info(3)) ' set oldTime to newTime oldTime = newTime End If End Sub Private Sub UpdateQues( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick, xRefreshButton.Click ' This sub handles the refreshing of data when either the timer expires ' or the xRefreshButton is clicked. ' Note: timer expires in 60000 milliseconds or 1 minute. Dim Patient_Info As New List( Of String ) Dim record As String Patient_Info = Module1.ReadTextFile() ' Determine if record should be appended based on timestamp Integer .TryParse(Patient_Info(0), newTime) If newTime > oldTime Then ' Concatenate strings record = Module1.ConcatenateStrings(Patient_Info) ' Add record to appropriate list Module1.AppendRecord(record, Patient_Info(3)) ' set oldTime to newTime oldTime = newTime End If Module1.ShowRecords() End Sub Private Sub xResourceListBox_Click( ByVal sender As Object , ByVal e As System.EventArgs) ' This sub shows the correct lists when a resource is selected. Module1.ShowRecords() End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xPlacedButton.Click ' This sub is called when the xPlacedButton is clicked ' Note: follow the calls to the appropriate subs or functions. Dim index As Integer index = Me .xRecordsListBox.SelectedIndex Module1.MoveToPlaced(index) End Sub End Class module1: Option Strict On Option Explicit On Module Module1 ' Declaring module level lists ' Each resource will need two lists. Patient que & Placed List Private AWS As New List( Of String ) Private AWS2 As New List( Of String ) Private XYG As New List( Of String ) Private XYG2 As New List( Of String ) Private JBY As New List( Of String ) Private JBY2 As New List( Of String ) Public Function ReadTextFile() As List( Of String ) ' This function reads the text file and parses it appropriately. ' Returns a list to calling function or sub Dim NewInfo As New List( Of String ) Dim read_line() As String ' path will be different depending on location of text file Const path As String = "C:\hl7test" Dim temp_MSH_pipes() As String Dim temp_SCH_pipes() As String Dim temp_NTE_pipes() As String Dim temp_PID_pipes() As String Dim temp_AIG_pipes() As String Dim temp_REASON_carrots() As String Dim temp_APPTTIME_carrots() As String Dim temp_STATUS_carrots() As String Dim temp_PATIENT_carrots() As String Dim temp_RESOURCE_carrots() As String Dim patient_Lname As String Dim patient_Fname As String 'NewInfo(0) = file_time 'NewInfo(1) = appt time 'NewInfo(2) = patient full name 'NewInfo(3) = resource 'NewInfo(4) = reason 'NewInfo(5) = status 'NewInfo(6) = current time 'NewInfo(7) = comment ' assign each line of text file to element of array read_line = My .Computer.FileSystem.ReadAllText(path & "\testnl7.txt" ).Split(Chr(13)) ' splitting first line by pipes temp_MSH_pipes = read_line(0).Split(Chr(124)) ' don't need to do anything else except strip out the timestamp ' note: could not use entire number, so I eliminated the year. ' this string is for application purposes and will not be shown on form. NewInfo.Add(temp_MSH_pipes(5).Substring(5)) ' splitting second line by pipes into elements of an array temp_SCH_pipes = read_line(1).Split(Chr(124)) ' splitting preceding array by carrots(^) into elements of another array temp_APPTTIME_carrots = temp_SCH_pipes(11).Split(Chr(94)) ' strip out the appointment time from correct element of new array NewInfo.Add(temp_APPTTIME_carrots(3).Substring(8, 4)) ' repeating preceding steps to acquire rest of data temp_PID_pipes = read_line(3).Split(Chr(124)) temp_PATIENT_carrots = temp_PID_pipes(5).Split(Chr(94)) patient_Lname = temp_PATIENT_carrots(0) patient_Fname = temp_PATIENT_carrots(1) ' concatenating to names NewInfo.Add(patient_Lname & ", " & patient_Fname) temp_AIG_pipes = read_line(6).Split(Chr(124)) temp_RESOURCE_carrots = temp_AIG_pipes(3).Split(Chr(94)) NewInfo.Add(temp_RESOURCE_carrots(0)) temp_REASON_carrots = temp_SCH_pipes(6).Split(Chr(94)) NewInfo.Add(temp_REASON_carrots(1)) temp_STATUS_carrots = temp_SCH_pipes(25).Split(Chr(94)) NewInfo.Add(temp_STATUS_carrots(0)) ' including timestring into list NewInfo.Add(TimeString) temp_NTE_pipes = read_line(2).Split(Chr(124)) NewInfo.Add(temp_NTE_pipes(3)) Return NewInfo End Function Public Function GetList( ByVal index As Integer ) As List( Of String ) ' This function determines which patient list to examine by examining the ' passed index. Returns the correct list to calling function or sub. ' Note: this will have to be expanded to include every resource. Dim CorrectList As New List( Of String ) If index = 0 Then CorrectList = XYG ElseIf index = 9 Then CorrectList = AWS ElseIf index = 22 Then CorrectList = JBY End If Return CorrectList End Function Public Function GetList2( ByVal index As Integer ) As List( Of String ) ' This function determines which placed list to examine by examining the ' passed index. Returns the correct list to calling function or sub. ' Note: this will have to be expanded to include every resource. Dim CorrectList As New List( Of String ) If index = 0 Then CorrectList = XYG2 ElseIf index = 9 Then CorrectList = AWS2 ElseIf index = 22 Then CorrectList = JBY2 End If Return CorrectList End Function Public Function ConcatenateStrings( ByVal Patient_List As List( Of String )) As String ' This function takes a list and concatenates it with appropriate spacing for ' Patient list. Returns a record as string. Dim record As String record = Patient_List(1).PadRight(12, Chr(32)) & Patient_List(2).PadRight(26, Chr(32)) & Patient_List(3).PadRight(11, Chr(32)) & Patient_List(4).PadRight(11, Chr(32)) & Patient_List(5).PadRight(10, Chr(32)) & Patient_List(6).PadRight(10, Chr(32)) & Patient_List(7) Return record End Function Public Sub AppendRecord( ByVal record As String , ByVal resource As String ) ' This sub appends records in the patient que by determining what the resource is. ' These values are passed by the calling function or sub. If resource Like "XYG" Then XYG.Add(record) ElseIf resource Like "AWS" Then AWS.Add(record) ElseIf resource Like "JBY" Then JBY.Add(record) End If End Sub Public Sub AppendRecord2( ByVal index As Integer , ByVal record As String ) ' This sub appends records in the Placed list by determining what the resource is. ' These values are passed by the calling function or sub. If index = 0 Then XYG2.Add(record) ElseIf index = 9 Then AWS2.Add(record) ElseIf index = 22 Then JBY2.Add(record) End If End Sub Public Sub ShowRecords() ' This sub shows the records for the appropriate resource Dim show_who As Integer Dim i As Integer Dim my_list As New List( Of String ) ' determine who is selected show_who = frmPatient.xCheckedListBox1.SelectedIndex() ' get the correct list my_list = GetList(show_who) ' clear out the Top list box frmPatient.xCheckedListBox1.ClearSelected() For i = 0 To my_list.Count - 1 ' add the records from the list to the listbox frmPatient.xCheckedListBox1.Items.Add(my_list(i)) Next ' get the correct list my_list = GetList2(show_who) ' clear out the bottom list box frmPatient.xCheckedListBox1.Items.Clear() For i = 0 To my_list.Count - 1 ' add the records from the list to the listbox frmPatient.xPlacedListBox.Items.Add(my_list(i)) Next End Sub Public Sub MoveToPlaced( ByVal index As Integer ) ' This sub moves records from the top list box to the bottom ' list box when the Placedbutton is clicked. It does this by ' determining who is selected and which record in the top list ' box is selected. With this information, it can get the correct ' list and add the record to the bottom list box and to the ' appropriate list that holds Placed records for the resource. ' An index value of the selected record to move is passed from ' calling function or sub. Dim change_who As Integer Dim top_list As New List( Of String ) Dim bottom_list As New List( Of String ) Dim Update As String ' determine which resource is selected change_who = frmPatient.xCheckedListBox1.SelectedIndex ' get the correct list for the top listbox top_list = GetList(change_who) ' get the correct list for the bottom listbox bottom_list = GetList2(change_who) ' get the correct record from the top listbox Update = top_list(index) ' remove the record from the top list top_list.RemoveAt(index) ' add the record to the correct list that holds Placed records. AppendRecord2(change_who, TimeString.PadRight(13) & Update) ' now just show the correct records for the lists. ShowRecords() End Sub End Module Tag: baby lock
  - 15
    - Interface - Collection of Interfaces? I already know how to "use" an Interface. But unsure how to "form" an interface containing a collection of Interfaces! Tag: baby lock
  - 16
    - best practice when writing to sql server One other thing, you may get timeout issues if you dont open and close the connection each time! Tag: baby lock

Attila Fogel

Hi,

i got a couple of questions according to how to disable things in win xp:

I'd like to disable the net connection on xp - how can i do that
how can i disable installing any program
disabling themes
disable running several programs
disable access to several folders

I'd like to write a baby-lock onto my computer because i'm not the only person who uses it, and i don't want to allow others to get full control on my pc.

i am working with vb2005.

Any feedback is appreciated, thnx

Attila

Re: baby lock

Lars Breiter

The best thing would be, that you create for each user an user-account.

Re: baby lock

Swade

WindowsXP already has this program built in. Go to the User Settings and create a profile for each user to login under. Then you can disable/enable whatever you want in there. Similar to what most companies do to prevent us horrible employees from surfing the web all day.

Re: baby lock

spotty

And using the in-built stuff is normally much simpler than writing code to "reinvent the wheel"

Windows Vista has much more parental controls than XP. So I'd hate to see you spend a lot of time writing something that is already implemented and probably would need modification to work on anything else.

Re: baby lock

Attila Fogel

i just wanted to know how to code it.. anyways, thnx

Re: baby lock

Bruno Yu - MSFT

Attila Fogel,

I guess some of your projects need the Lock functions added. However, the Windows Operating System has provided enough kinds of Lock methods for you. Just use them directly because it is save time and won't cause any other problems.

Moreover, there are many programms shown in MSDN and Knowledge Base. Please look them up in the related keyword then you will find many satisfied answers.

Hope that the results you get from the MSDN will give a lot of helps!