vb.net-2010

问题 I am using vb.net and I want to check whether a particular user exists in Active Directory. If it does, I want to display the particular user's details. How to do it? User login credentials are passed via textbox control My code: Dim de As DirectoryEntry = GetDirectoryEntry() Dim ds As DirectorySearcher = New DirectorySearcher(de) ds.Filter = "(&(objectClass=txt1.text))" ' Use the FindAll method to return objects to SearchResultCollection. results = ds.FindAll() Public Shared Function

问题 I can't figure out what the issue is here. I started project from scratch, went to debug, and received error: System.InvalidOperationException was unhandled Message=An error occurred creating the form. See Exception.InnerException for details. The error is: Object reference not set to an instance of an object. I am not understand why this error is occurring in an auto-generated file. Here is the code in it's entirety: '--------------------------------------------------------------------------

问题 How Can I Get The Redirected URL From Original or Short URL? for example: URL_1 (Short URL) = "http://af.ly/FQhAo" This will redirect to URL_2 (Original URL) = "http://download.bitdefender.com/windows/desktop/t_security/2013/en-us/bitdefender_ts_2013_32b.exe" So how can we get URL_2 From URL_1? help Please. (I have googled but not found any solution) Project Information: Platform: Visual Basic Express 2010 .NET Framework Version: 2.0 Thanks For Your Time. Edited: I just have one URL which is

问题 Can someone please help me to make this work? I want to calculate the time between two dates in VB.NET like this: startdate: 2011/12/30 enddate: 2011/12/31 Calculate: ? hour ? minute ? seconds 回答1: You Can try this DateTime startTime = DateTime.Now; DateTime endTime = DateTime.Now.AddSeconds( 75 ); TimeSpan span = endTime.Subtract ( startTime ); Console.WriteLine( "Time Difference (seconds): " + span.Seconds ); Console.WriteLine( "Time Difference (minutes): " + span.Minutes ); Console

问题 I'm trying to populate a listview with varBinary(max) values. Well, I actually need to write each varBinary into a csv file and the table consists of 100 000 odd rows. I just don't know how to retrieve the datatype! Sub getInformation() Try If Not String.IsNullOrWhiteSpace(connString) Then Using cn As SqlConnection = New SqlConnection(connString) cn.Open() Using cmd As SqlCommand = New SqlCommand() cmd.Connection = cn Dim qry As String qry = String.Format("SELECT [varBinaryField] FROM [dbX].

问题 I need to write a script for deleting multiple files. I have been able to write one that searches a directory for one file name and then deletes it but I need the ability to specify more than one file name at a time and delete all of them if found. It should be noted that I am not trying to search for duplicate file names. Right now I have to edit the script each time I want to search for a file to delete it, I have to do this several times per day with a dozen or so files at a time.....the

问题 I've got a Windows Form with a button and a datagridview. The project includes a working database connection and LINQ to SQL class. I'm trying to bind the datagridview to the LINQ to SQL. In a code module I've got this: Public Function DataGridList() As BindingSource Dim NewBindingSource As New BindingSource() Dim db As New DataClasses1DataContext() NewBindingSource.DataSource = _ From Block In db.BLOCK_ASSIGNMENTs Where Block.gr912_school = "Franklin" Select Block.gr6_school Distinct Return

问题 Converting a Database into a list in VB. I am essentially using 2 lists the 1st list contains several email addresses or the ends of them like EXMPLE "@hotmail.com" the Second list is read from a column from a database that i already linked to the form. I will post the code I was trying to make work but it doesn't seem to be taking to. It is suppose to act as an alert system with the option to send to 1 person or everyone in the Database So Please Help Make this work? Private Sub Button1

问题 I create dynamic form with timer(as a reminder) as a notification or alert form. i assign a name on each form. so whenever it is updated.. i want to close or to disable the timer on that certain form so it will never show (as an alert). the for each control to find timer doesn't work, i can't disable it. For Each f As Form In My.Application.OpenForms If (f.Name = Label10.Text) Or (f.Name = "notification" & Label9.Text) Then Dim timer = Me.components.Components.OfType(Of IComponent)().Where

问题 I create dynamic form with timer(as a reminder) as a notification or alert form. i assign a name on each form. so whenever it is updated.. i want to close or to disable the timer on that certain form so it will never show (as an alert). the for each control to find timer doesn't work, i can't disable it. For Each f As Form In My.Application.OpenForms If (f.Name = Label10.Text) Or (f.Name = "notification" & Label9.Text) Then Dim timer = Me.components.Components.OfType(Of IComponent)().Where