VB.NET Programming Corner!

[stasher]

Gawa ka 2 listbox,
On load nang program mag lagay ka nang laman nang first list box.
Double click listbox1
Now, ang objective mo dito is pag click mo nang item sa listbox1 mapupunta sa listbox2.
Para makuha mo yung item na clinick mo sa listbox1, use ka nang
ListBox1.SelectedItem.ToString

Last, isipin mo pano mo ngaun yan i papasa sa listbox2.

Kap slamat dto.. nagamit ko yung Listbox1.SelectedItem..

eh panu nman po yung RemoveItem?

po!

 

[gemma21]

help naman po pano po ba code ng date and time tnx po ung updated po a

 

[tagpi]

help naman po pano po ba code ng date and time tnx po ung updated po a

Dim txtDate As DateTime = DateTime.Now
Dim DateString As String = txtDate.ToString("MM/dd/yyyy")
lblDate.Text = DateString

Dim txtTime As DateTime = DateTime.Now
Dim TimeString As String = txtTime.ToString("hh:mm tt")
lblTime.Text = TimeString

 

[tagpi]

Can anyone help me with this?

I have a form namely "frmMainMenu" and has a panel in it and i have a UserControl namely "uscPOS". When i clicked F8, the panel inside the form will be the parent of the usercontrol. What i want to happen is when i click the New Invoice button from my form, the textbox in usercontrol will be enabled. i have this code in my form

Public Class frmMainMenu
Private Sub rbiPOS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbiPOS.Click
Try
Dim bLoad As Boolean = False

If UIPanel.HasChildren Then
If Not TypeOf (UIPanel.Controls(0)) Is uscPOS Then
UIPanel.Controls.Clear()
bLoad = True
End If
Else
bLoad = True
End If

If bLoad Then
Dim f As New uscPOS
f.Parent = UIPanel
f.Dock = DockStyle.Fill
f.Visible = True
End If

rbrPOS.Enabled = True
rbrProducts.Enabled = True
rbrDiscount.Enabled = True
rbrExact.Enabled = True

btnNewInvoice.Enabled = True
btnCancel.Enabled = False
btnSettle.Enabled = False
btnAddtxt.Enabled = False
btnDelete.Enabled = False
btnDiscount.Enabled = False

rbtSenior.Enabled = False
rbtExact.Enabled = False

txtAmountTendered.Enabled = False
txtDiscount.Enabled = False
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "rbiPOS_Click")
End Try
End Sub

Private Sub btnNewInvoice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewInvoice.Click
Try
btnNewInvoice.Enabled = False
btnCancel.Enabled = True
btnSettle.Enabled = True
btnAddtxt.Enabled = True
btnDelete.Enabled = True
btnDiscount.Enabled = True

rbtSenior.Enabled = False
rbtExact.Enabled = False

txtAmountTendered.Enabled = False
txtDiscount.Enabled = False

'ito yung part na DAPAT eenable niya yung textbox sa usercontrol. sino nakakaalam, bakit hindi nag eenable? aptulong lang mga master..
Dim f As New uscPOS
f.txtCustomerName.Enabled = True
f.txtCustomerAddress.Enabled = True
f.txtContactNo.Enabled = True
f.txtSearchProductCode.Enabled = True
'itong messagebox, nagddisplay, pero yung mga eenable niya, hindi nangyayari. ano mali sa ginagawa ko?
MsgBox("I am able to go to this part of code.")
f.pnecbxSearchProductName.Visible = True
f.pnecbxSearchProductName.Enabled = True
f.pnecbxSearchProductName.Dock = DockStyle.Bottom
f.txtUnitPrice.Enabled = True
f.txtQuantity.Enabled = True
MsgBox("I am at the end of the code.")
'lahat nang messagebox, nivview niya, pero yung mga eenable niya, hindi nangyayari.. sana me makatulong..
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "btNNewInvoice_Click")
End Try
End Sub
End Class

 

[rhon6260]

Can anyone help me with this?

I have a form namely "frmMainMenu" and has a panel in it and i have a UserControl namely "uscPOS". When i clicked F8, the panel inside the form will be the parent of the usercontrol. What i want to happen is when i click the New Invoice button from my form, the textbox in usercontrol will be enabled. i have this code in my form

Try mo e Access yung textbox ng panel
ex.

Panel.Textbox.Enable = True

sana makatulong

 

[tagpi]

Try mo e Access yung textbox ng panel
ex.

Panel.Textbox.Enable = True

sana makatulong

sir, ganyan po ginagawa ko.
hindi ko po alam kung bakit hindi niya ini-enable.
btw, usercontrol po yung na pinalabas ko sa panel.
thanks sa reply sir, any other idea bakit hindi niya ini-enable?

 

[gemma21]

pano po gawing digital ung time s vb?

 

[JajaDina]

pano po gawing digital ung time s vb?

http://www.vbtutor.net/VB_Sample/clock.htm

 

[ghost01]

patulong po master sa system namin..Car rental System po cya..need example if pde..

 

[gemma21]

xenxa n po d po pala digital analogue clock po pala anu po b code?

 

[epoy]

My nakagawa na po ba dito ng Licensure Examination for Teachers review System pa help naman kung cnu na my experienced sa paggawa ng gnitong system hirap po ksi kung panu flow eh..

 

[polens]

xenxa n po d po pala digital analogue clock po pala anu po b code?

ano ba talaga? ANALOG or DIGITAL?
or ung watch may ANALOG(Hands) at may digital?

pa elaborate naman

 

[uwanafight]

ask ko lang dito .. paano ba gawin yung path .. i mean once na inopen mo na yung vb.net .. mag crereate sya ng folder sa specific area .. para dun nya babasahin yung database ..

parang gawa ni sir syntaxerror na wimax tool .. nag create sya ng folder (hidden) sa system32 para dun nya babasahin yung database ..

 

[jojo2209]

ask ko lang dito .. paano ba gawin yung path .. i mean once na inopen mo na yung vb.net .. mag crereate sya ng folder sa specific area .. para dun nya babasahin yung database ..

parang gawa ni sir syntaxerror na wimax tool .. nag create sya ng folder (hidden) sa system32 para dun nya babasahin yung database ..

this will do
create Folder in your AppData\Local

Dim strFolder As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "YouFolderName")
If Not IO.Directory.Exists(strFolder) Then
IO.Directory.CreateDirectory(strFolder)
Dim dirFolder As IO.DirectoryInfo = New IO.DirectoryInfo(strFolder)
dirFolder.Attributes = IO.FileAttributes.Hidden
End If

 

[jojo2209]

Can anyone help me with this?

I have a form namely "frmMainMenu" and has a panel in it and i have a UserControl namely "uscPOS". When i clicked F8, the panel inside the form will be the parent of the usercontrol. What i want to happen is when i click the New Invoice button from my form, the textbox in usercontrol will be enabled. i have this code in my form

try to remove New in "Dim f As New uscPOS"
ang New kasi is gagawa sya ng bagong user control
hindi ung existing na nakadisplay sa form mo..
ganun cguro..haha

 

[iknowhtml]

sir patulong po kung pano gawin to.

pag select ng isang record sa listview, may iki-click ako na button tapos lalabas sa form ung record gamit yung label.

pa help po. thanks =D.

(palagay na din po ng code, hehehe, nahihirapan po ko ee.)

 

[jojo2209]

sir patulong po kung pano gawin to.

pag select ng isang record sa listview, may iki-click ako na button tapos lalabas sa form ung record gamit yung label.

pa help po. thanks =D.

(palagay na din po ng code, hehehe, nahihirapan po ko ee.)

kung list lng yan..at walang mga column
ganito ginagamit ko

For Each item As ListViewItem In YourListViewName.Items
If item.Selected = True Then
Label.text = item.Text
Exit For
End If
Next

 

[gemma21]

help nmn po pano po lgyan ng tunog ang app. S cp kc po gusto q yung warning my tunog para po mlaman q n ngwarning n xa tnx po s tulong

 

[gibiR]

ask ko lang po, paano po maiiwasan ang memory leak sa vb.net?
dito po example:


Before Crystal Report show (mem = 16,028k)

Crystal Report show (mem = 43,808k)

After Crytal Report close (mem = 42,320k)

 

[naglasnats]

may sample po ba kayo dyan ng raffle? SS lang po need. Kung wala, ideas lang po sa GUI. Thanks.