Okay, the ServerSpec method is as follows;
Function ServerSpec( _
ByVal server As String, _
ByVal colour As String, _
ByVal processorSpec As String, _
ByVal noCPU As Integer, _
ByVal memAmount As Integer, _
ByVal memConfig As String, _
ByVal hDDSpec As String, _
ByVal noHDD As Integer, _
ByVal rAID As Boolean, _
ByVal rAIDType As String, _
ByVal fDD As Boolean, _
ByVal opticalDrive As Boolean, _
ByVal opDriveType As String, _
ByVal tapeDAT As String, _
ByVal tapeDATType As String, _
ByVal notes As String) As Integer
and on button click event, as follows;
Sub Button1_Click(sender As Object, e As EventArgs)
ServerSpec( _
DropDownList1.SelectedItem.Value, _
servercolour.SelectedItem.Value, _
DropDownList2.SelectedItem.Value, _
DropDownList3.SelectedItem.Value, _
MemAmt.SelectedItem.Value, _
MemCfig.SelectedItem.Value, _
DropDownList5.SelectedItem.Value, _
DropDownList6.SelectedItem.Value, _
CheckBox1.Checked, _
raid.SelectedItem.Value, _
FDD.SelectedItem.Value, _
CheckBox2.Checked, _
CDType.SelectedItem.Value, _
DropDownList4.SelectedItem.Value, _
DropDownList15.SelectedItem.Value, _
Additional.Text)
msgbox("Quote Saved Successfully, QuoteID = ")
End Sub
|