Visual Basic

newbie@vb wrote:

if it is,whats the coding?

newbie@vb wrote:

it is necessarily to connect the features from access?

Public Sub frm1_Load(EventArgs e) Handles frm1.Load
    Me.variable = frm2.Drive
End Sub

Code pre-built is code that you don't have to build later.

Public Class frm1<br />
Dim DriveValue as String<br />
    Public Property Drive() As String<br />
        Get<br />
            Return DriveValue<br />
        End Get<br />
        Set(ByVal Value As String)<br />
            DriveValue = Value<br />
        End Set<br />
    End Property<br />
Private Sub frm1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
MsgBox(DriveValue.ToString)<br />
End Sub<br />
End Class<br />
<br />
Public Class frm2<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Dim frm As New frm1<br />
frm.Drive = "C:\"<br />
frm.Show()<br />
End Sub<br />
Dim <br />
End Class

cstrader232 wrote:

ChartDataTable.Select("Datevalue > 0", "Datevalue")

cstrader232 wrote:

This code then prints the data in the unsorted order:

Dim sortedRows() As DataRow = ChartDataTable.Select("Datevalue > 0", "Datevalue DESC")
 
For Each dr As DataRow In sortedRows
    Console.WriteLine(dr.Item("DateValue"))
Next

cstrader232 wrote:

but I would then think that you could put that row collection right back into the table it came out of.

Dave Kreskowiak wrote:

So, what you're doing is a complete waste of time.

<br />
Dim MaximumDate As Date<br />
Dim MinimumDate as Date<br />
Dim ChosenYear As Integer = 2007 'or the year chosen by the user<br />
Dim ChosenMonth As Integer = ComboBox1.SelectedValue<br />
MinimumDate = ChosenYear & "/" & ChosenMonth & "/1"<br />
MaximumDate = ChosenYear & "/" & ChosenMonth & "/" & Date.DaysInMonth(MinimumDate.Year, MinimumDate.Month)<br />

Senthil S wrote:

If it can done in online it is good for me??????????

Senthil S wrote:

Pls refer me which help to seek jobs.

       <br />
        Dim fod As New OpenFileDialog<br />
        fod.Filter = "JPG|*.jpg|BMP|*.bmp|All Files|*.*"<br />
        Dim dr As DialogResult<br />
        dr = fod.ShowDialog()<br />
        If dr = Windows.Forms.DialogResult.OK Then<br />
<br />
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage<br />
            PictureBox1.Load(fod.FileName)<br />
<br />
        End If<br />