Hi,
My page code behind code is attached ,I am a bit confused as the VS 2005 keeps giving me the error that chklistvyes & the other controls are not declared ,despite having the runat server in the html cade of the control,
I keeps oin throwing this error can some one please help me out with this issue asap,please as I tried to figure it out many a time but in vain........... ......
Please help me out asap........... .......
My page code behind code is attached ,I am a bit confused as the VS 2005 keeps giving me the error that chklistvyes & the other controls are not declared ,despite having the runat server in the html cade of the control,
I keeps oin throwing this error can some one please help me out with this issue asap,please as I tried to figure it out many a time but in vain........... ......
Code:
Partial Class CPro
Inherits System.Web.UI.Page
Dim i, nyes, nno As Integer
Dim OptionsY() As Integer = {1, 1, 1, 1, 1, 1}
Dim OptionsN() As Integer = {1, 1, 1, 1, 1, 1}
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
chklistvyes.Enabled = False
chklistvno.Enabled = False
txtcallprov.Visible = False
txtcallprov.BackColor = Drawing.Color.White
btnCopyIdv.Attributes.Add("Onclick", "javascript:HighlightAll('test2.select1')")
btnCopyIdv.Attributes.Add("onclick", "javascript:window.clipboardData.setData('Text', document.getElementById('" & txtcallprov.UniqueID & "').value);")
End Sub
Protected Sub radcustid_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radcustid.SelectedIndexChanged
If Trim(radcustid.SelectedValue.ToString) = "Yes" Then
chklistvyes.Enabled = True
chklistvno.Enabled = True
txtcallproid.Visible = True
txtcallproid.Text = "XYZ"
txtcallproid.BackColor = Drawing.Color.Green
ElseIf Trim(radcustid.SelectedValue.ToString) = "No" Then
txtcallproid.Visible = True
txtcallproid.BackColor = Drawing.Color.Red
End If
End Sub
Protected Sub btnrefresh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnrefresh.Click
Response.Redirect("Callpro.aspx")
End Sub
Protected Sub btnvcheck_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnvcheck.Click
Dim x
Dim msg, msg1, msg2, msg3, msg4, msg5 As String
msg = ""
msg1 = ""
msg2 = ""
msg3 = ""
msg4 = ""
msg5 = ""
For x = 0 To chklistvyes.Items.Count - 1
If chklistvyes.Items(i).Selected Then
nyes = nyes + 1
Else
nno = nno + 1
End If
i = i + 1
Next
If (nyes > 4) Then
txtcallprov.Visible = True
txtcallprov.Text = "XYZ"
txtcallprov.BackColor = Drawing.Color.Green
ElseIf (nyes = 4) Then
txtcallprov.Visible = True
txtcallprov.Text = "XYZ"
txtcallprov.BackColor = Drawing.Color.Green
ElseIf (nyes < 4) Then
txtcallprov.Visible = True
txtcallprov.Text = "XYZ"
txtcallprov.BackColor = Drawing.Color.Red
End If
End Sub
End Class
Comment