Visual Basic

dim i as integer
dim max as integer
max = Convert.ToInt32(numericupdown1.value)
for i = 1 to max
   listbox1.item.add(i)
next

Public Proprty Value() As Decimal
Gets or sets the value assigned to the spin box (also known as an up-down control).

unix_master01 wrote:

I have tried using a dataset, I have filled the dataset with the xml data. But I don't know how to show it in a dataGrid View.

MyDataSet.ReadXml(filepath)
DataGridView1.DataSource = MyDataSet
DataGridView1.DataMember = "someTableNameInDataSet"

Private Sub CheckBox_CheckChanged(blah, blah) Handles, CheckBox1.CheckChanged, CheckBox2.CheckChanged, ...

Dim cb As CheckBox = DirectCast(sender, CheckBox)
If Not myMonthList.Contains(cb.Tag) Then
    myMonthList.Add(cb.Tag)
Else
    myMonthList.Remove(cb.Tag)
End If

Dim months As String = String.Join(",", myMonthList.ToArray(GetType(String)))

Dim sql As String = String.Format("SELECT * FROM Finacial_Request_Report WHERE year1='{0}' AND month1 IN ({1})", NumericUpDown1.Text, months)

SELECT * FROM Financial_Request_Report WHERE year1=1980 AND month1 IN ('January','Febuary')

'Draw your rectangle, then do something like this:
For x = 0 to rectangleWidth Step spacing
    DrawLine( x+rectangleLeft, 0, x+rectangleLeft, rectangleHeight )
Next

For x = 0 to rectangleHeight Step spacing
    DrawLine( 0, x+rectangleTop, rectangleWidth, x+rectangleHeight )
Next

Try
   Dim searcher As New ManagementObjectSearcher( _
   "root\CIMV2", _
   "SELECT * FROM Win32_GroupUser WHERE PartComponent = " & Chr(34) & "Win32_UserAccount.Domain=\" & Chr(34) & "DOMAIN\" & Chr(34) & ",Name=\" & Chr(34) & "USER\" & Chr(34) & Chr(34))
   For Each queryObj As ManagementObject In searcher.Get()

      Console.WriteLine("-----------------------------------")
      Console.WriteLine("Win32_GroupUser instance")
      Console.WriteLine("-----------------------------------")
      Console.WriteLine("GroupComponent: {0}", queryObj("GroupComponent"))
      Console.WriteLine("PartComponent: {0}", queryObj("PartComponent"))
   Next
Catch err As ManagementException
   MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try

-----------------------------------
Win32_GroupUser instance
-----------------------------------
GroupComponent: \\NC8000\root\cimv2:Win32_Group.Domain="DOMAIN",Name="Administrators"
PartComponent: \\NC8000\root\cimv2:Win32_UserAccount.Domain="DOMAIN",Name="USER"
-----------------------------------
Win32_GroupUser instance
-----------------------------------
GroupComponent: \\NC8000\root\cimv2:Win32_Group.Domain="DOMAIN",Name="Debugger Users"
PartComponent: \\NC8000\root\cimv2:Win32_UserAccount.Domain="DOMAIN",Name="USER"

archangel_26 wrote:

I've found a bit of code that almost works.

' Get the current prinicpal this thread is running under
Dim userPrincipal As IPrincipal = System.Threading.Thread.CurrentPrincipal

' Check if this principal is a member, through any number of nested groups
' and permissions, of the local Administrators group.  For instance, if in
' a domain environment, a user can be a member of the Domain Admins domain
' group, which in turn can be a member of the local machines Administrators
' group.  This line would return true if that user was running this code.
Dim result As Boolean = userPrincipal.IsInRole("Administrators")