|
It'll be that account and, No, it doesn't have sufficient rights to do what you want. Add that account to the Power Users group and it'll get the rights it needs. BUT!!! BEWARE!!! This ia a HUGE security risk if your NT server is visible to the Internet.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Where do you actually setup the permissions for accounts in Windows NT?
|
|
|
|
|
Here goes the question with the code, I can't find how to append a zip with code, but you should be able to copy-paste and compile the code on the bottom after question
the first part is how to call this warning window through a tread
AlertWindow is the class that displays the message
Dim aFrmAlertPopUp As New AlertWindow("oi", "test", "123", "A", "dude", "joe", "joe", "A", ListView1, "", "123", "123")
if you invoke like this, it just works fine:
aFrmAlertPopUp.display()
if you invoke through a thread, it does go through (i see it steping though with VS) but won't show
'Dim t As New Thread(New ThreadStart(AddressOf aFrmAlertPopUp.display))
't.IsBackground = True
't.Start()
End Sub
The freaky thing is that if you add a msgbox("hello") in one of the methos of aletwindow, it works fine, but i don't want the message box to pop. why is it happening, is there anything that a message box triggers that i am not addind on that method
Private Sub startDisplay(ByVal displayCall As String)
setWarningProperties(displayCall)
lblBody.Text = message
lblSysOrigin.Text = sysOrigin
setLocation()
Me.Opacity = 0
Try
Me.Show()
currentTimer = timerFadeIn
timerFadeIn.Start()
Catch err As Exception
MsgBox(err.Message)
Finally
MsgBox("23")
End Try
End Sub
here is the whole code for AlertWindow.vb:
Imports System.Reflection
Public Class AlertWindow
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents timerFadeIn As System.Timers.Timer
Friend WithEvents timerWait As System.Timers.Timer
Friend WithEvents timerFadeOut As System.Timers.Timer
Friend WithEvents btnProcess As System.Windows.Forms.Button
Friend WithEvents btnDecline As System.Windows.Forms.Button
Friend WithEvents lblSysOrigin As System.Windows.Forms.Label
Friend WithEvents imgTopBar As System.Windows.Forms.PictureBox
Friend WithEvents lblBody As System.Windows.Forms.Label
Friend WithEvents lblUser As System.Windows.Forms.Label
Friend WithEvents lblCaseNo As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.timerFadeIn = New System.Timers.Timer
Me.timerFadeOut = New System.Timers.Timer
Me.timerWait = New System.Timers.Timer
Me.btnProcess = New System.Windows.Forms.Button
Me.btnDecline = New System.Windows.Forms.Button
Me.lblSysOrigin = New System.Windows.Forms.Label
Me.imgTopBar = New System.Windows.Forms.PictureBox
Me.lblBody = New System.Windows.Forms.Label
Me.lblUser = New System.Windows.Forms.Label
Me.lblCaseNo = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
CType(Me.timerFadeIn, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.timerFadeOut, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.timerWait, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'timerFadeIn
'
Me.timerFadeIn.Interval = 50
Me.timerFadeIn.SynchronizingObject = Me
'
'timerFadeOut
'
Me.timerFadeOut.Interval = 50
Me.timerFadeOut.SynchronizingObject = Me
'
'timerWait
'
Me.timerWait.AutoReset = False
Me.timerWait.Interval = 4000
Me.timerWait.SynchronizingObject = Me
'
'btnProcess
'
Me.btnProcess.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.btnProcess.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.btnProcess.Location = New System.Drawing.Point(240, 216)
Me.btnProcess.Name = "btnProcess"
Me.btnProcess.TabIndex = 7
Me.btnProcess.Text = "Process"
'
'btnDecline
'
Me.btnDecline.BackColor = System.Drawing.SystemColors.ControlDarkDark
Me.btnDecline.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.btnDecline.Location = New System.Drawing.Point(8, 216)
Me.btnDecline.Name = "btnDecline"
Me.btnDecline.TabIndex = 8
Me.btnDecline.Text = "Decline"
'
'lblSysOrigin
'
Me.lblSysOrigin.BackColor = System.Drawing.Color.Transparent
Me.lblSysOrigin.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSysOrigin.ForeColor = System.Drawing.SystemColors.HotTrack
Me.lblSysOrigin.Location = New System.Drawing.Point(8, 24)
Me.lblSysOrigin.Name = "lblSysOrigin"
Me.lblSysOrigin.Size = New System.Drawing.Size(312, 23)
Me.lblSysOrigin.TabIndex = 9
'
'imgTopBar
'
Me.imgTopBar.Location = New System.Drawing.Point(0, 0)
Me.imgTopBar.Name = "imgTopBar"
Me.imgTopBar.Size = New System.Drawing.Size(328, 12)
Me.imgTopBar.TabIndex = 11
Me.imgTopBar.TabStop = False
'
'lblBody
'
Me.lblBody.BackColor = System.Drawing.Color.Transparent
Me.lblBody.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblBody.Location = New System.Drawing.Point(8, 136)
Me.lblBody.Name = "lblBody"
Me.lblBody.Size = New System.Drawing.Size(312, 72)
Me.lblBody.TabIndex = 14
'
'lblUser
'
Me.lblUser.BackColor = System.Drawing.Color.Transparent
Me.lblUser.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.lblUser.Location = New System.Drawing.Point(48, 56)
Me.lblUser.Name = "lblUser"
Me.lblUser.Size = New System.Drawing.Size(264, 16)
Me.lblUser.TabIndex = 15
'
'lblCaseNo
'
Me.lblCaseNo.BackColor = System.Drawing.Color.Transparent
Me.lblCaseNo.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.lblCaseNo.Location = New System.Drawing.Point(72, 80)
Me.lblCaseNo.Name = "lblCaseNo"
Me.lblCaseNo.Size = New System.Drawing.Size(240, 16)
Me.lblCaseNo.TabIndex = 16
Me.lblCaseNo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(32, 16)
Me.Label1.TabIndex = 17
Me.Label1.Text = "User:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(8, 80)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(56, 16)
Me.Label2.TabIndex = 18
Me.Label2.Text = "Case NO:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(8, 112)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(72, 16)
Me.Label3.TabIndex = 19
Me.Label3.Text = "Message:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.ControlDarkDark
Me.Button1.ForeColor = System.Drawing.SystemColors.HighlightText
Me.Button1.Location = New System.Drawing.Point(96, 216)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 20
Me.Button1.Text = "Snooze"
'
'AlertWindow
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 250)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lblCaseNo)
Me.Controls.Add(Me.lblUser)
Me.Controls.Add(Me.lblBody)
Me.Controls.Add(Me.imgTopBar)
Me.Controls.Add(Me.lblSysOrigin)
Me.Controls.Add(Me.btnDecline)
Me.Controls.Add(Me.btnProcess)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "AlertWindow"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "frmAlertPopUp"
Me.TopMost = True
CType(Me.timerFadeIn, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.timerFadeOut, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.timerWait, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Dim currentTimer As System.Timers.Timer
Private sender As String
Private alertMessageArray As String
'Private Sender As String
'''determines the background color
Private _windowInstance As String
'''determines the logo
Private _sysOrigin As String
'''carries the alert id
Private _alertId As String
'''carries the message
Private _message As String
'''carries the user alias
Private _userAlias As String
'carries the team member alias
Private _altTeamMember As String
Private _alertInstance As String
'''alert types - ("SAS" "SAP" "SAD" "SAR" "SAX" "GAS" "GAP" "GAC")
Private _altAlertType As String
Private _MessageTime As String
Private _AlertGUID As String
Private _alertCaseNO As String
''''timers for window management
Private AlertWindowTimer As New System.Windows.Forms.Timer
Private SecondWarning As New System.Windows.Forms.Timer
Private ExpiryWarning As New System.Windows.Forms.Timer
Private Snooze As New System.Windows.Forms.Timer
''''timers for window management
Private countWarnings As Integer = 0
'Private asm As Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Private _ControlToCheck As ListView
'''
''' windowInstance() property
'''
Public Property windowInstance() As String
Get
Return _windowInstance
End Get
Set(ByVal Value As String)
_windowInstance = Value
End Set
End Property
'''
''' sysOrigin() property
'''
Public Property sysOrigin() As String
Get
Return _sysOrigin
End Get
Set(ByVal Value As String)
_sysOrigin = Value
End Set
End Property
'''
''' alertId() property
'''
Public Property alertId() As String
Get
Return _alertId
End Get
Set(ByVal Value As String)
_alertId = Value
End Set
End Property
'''
''' message() property
'''
Public Property message() As String
Get
Return _message
End Get
Set(ByVal Value As String)
_message = Value
End Set
End Property
'''
''' userAlias() property
'''
Public Property userAlias() As String
Get
Return _userAlias
End Get
Set(ByVal Value As String)
_userAlias = Value
End Set
End Property
'''
''' altTeamMember() property
'''
Public Property altTeamMember() As String
Get
Return _altTeamMember
End Get
Set(ByVal Value As String)
_altTeamMember = Value
End Set
End Property
'''
''' AlertType() property
'''
Public Property AlertType() As String
Get
Return _altAlertType
End Get
Set(ByVal Value As String)
_altAlertType = Value
End Set
End Property
'''
''' alertInstance() property
'''
Public Property alertInstance() As String
Get
Return _alertInstance
End Get
Set(ByVal Value As String)
_alertInstance = Value
End Set
End Property
'''
''' MessageTime() property
'''
Public Property MessageTime() As String
Get
Return _MessageTime
End Get
Set(ByVal Value As String)
_MessageTime = Value
End Set
End Property
'''
''' MessageTime() property
'''
Public Property alertGUID() As String
Get
Return _AlertGUID
End Get
Set(ByVal Value As String)
_AlertGUID = Value
End Set
End Property
'''
''' MessageTime() property
'''
Public Property alertCaseNO() As String
Get
Return _alertCaseNO
End Get
Set(ByVal Value As String)
_alertCaseNO = Value
End Set
End Property
'''
''' Constructor
'''
Public Sub New(ByVal message As String, _
ByVal sysOrigin As String, _
ByVal alertId As String, _
ByVal windowInstance As String, _
ByVal userAlias As String, _
ByVal altTeamMember As String, _
ByVal altAlertType As String, _
ByVal alertInstance As String, _
ByVal controlToCheck As ListView, _
ByVal messageTime As String, _
ByVal alertGUID As String, _
ByVal alertCaseNo As String)
MyBase.New()
InitializeComponent()
_windowInstance = windowInstance
_sysOrigin = sysOrigin
_message = message
_alertId = alertId
_userAlias = userAlias
_altTeamMember = altTeamMember
_altAlertType = altAlertType
_alertInstance = alertInstance
_ControlToCheck = controlToCheck
_AlertGUID = alertGUID
_alertCaseNO = alertCaseNo
If (messageTime <> "") Then
_MessageTime = messageTime
Else
_MessageTime = "3"
End If
End Sub
'''
''' Sets the position of the window on the monitor
'''
Private Sub setLocation()
Dim x As Integer = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Right
Dim y As Integer = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Bottom
x -= Me.Width
y -= Me.Height
Me.Location = New Point(x, y)
End Sub
'''
''' Finds if the warning still exists on the listview
'''
Private Sub startDisplay(ByVal displayCall As String)
setWarningProperties(displayCall)
lblBody.Text = message
lblSysOrigin.Text = sysOrigin
setLocation()
Me.Opacity = 0
Try
Me.Show()
currentTimer = timerFadeIn
timerFadeIn.Start()
Catch err As Exception
MsgBox(err.Message)
Finally
MsgBox("23")
End Try
End Sub
'''
''' receive the time and calculates when timers start to tick
''' if no time or time is less then 3 minutes, default time is set to 3 minutes
'''
Private Function CalculateWarningTime(ByVal Time As String, ByVal warningInstance As String) As Integer
Dim timeInSeconds As Integer
Dim calculatedTime As Integer
'''time passed from message is converted to integer
timeInSeconds = Convert.ToInt32(Time)
'''If smaller then minimun default, set to 3 minutes
If (timeInSeconds < 3) Then
timeInSeconds = 30000
Else
timeInSeconds = Convert.ToInt32(Time & "0000")
End If
Select Case warningInstance
Case "F"
calculatedTime = timeInSeconds - 30000
Case "S"
calculatedTime = timeInSeconds - 20000
Case "T"
calculatedTime = timeInSeconds - 10000
End Select
Return calculatedTime
End Function
'''
''' prepares window to display
''' pass alert info to vars and labels
'''
Friend Sub display()
Try
sender = userAlias
alertMessageArray = "oi" '/AlertMessage
'''need to pass case NO
lblCaseNo.Text = alertCaseNO
Select Case AlertType
Case "GAS", "GAP", "GAC"
btnDecline.Visible = False
btnDecline.Enabled = False
Case Else
End Select
If (altTeamMember <> "") Then
Me.lblUser.Text = altTeamMember
Else
Me.lblUser.Text = "No User"
End If
Me.lblBody.Text = alertMessageArray 'anAlert.message
Me.lblSysOrigin.Text = sysOrigin
Me.BackColor = Color.Azure
''''could add another timer to check if record is still there
AddHandler AlertWindowTimer.Tick, AddressOf TimerEventProcessor
startWindowImmediatly()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
'''
''' if time is >= 3mins, show indow right the way
'''
Private Sub startWindowImmediatly()
Try
startDisplay("A")
AddHandler SecondWarning.Tick, AddressOf SecondWarningEventProcessor
SecondWarning.Interval = CalculateWarningTime(MessageTime, "S")
SecondWarning.Start()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
'''
''' FIRST ALERT WARNING
'''
'''
''' First timer even hadler
''' raises first warning
'''
Private Sub TimerEventProcessor(ByVal myObject As Object, ByVal myEventArgs As EventArgs)
AlertWindowTimer.Stop()
startWindowImmediatly()
End Sub
'''
''' second timer even hadler
'''
Private Sub SecondWarningEventProcessor(ByVal myObject As Object, ByVal myEventArgs As EventArgs)
SecondWarning.Stop()
startDisplay("B")
MsgBox("3")
AddHandler ExpiryWarning.Tick, AddressOf FinalWarningEventProcessor
ExpiryWarning.Interval = CalculateWarningTime(MessageTime, "T")
ExpiryWarning.Start()
End Sub
'''
''' third timer even hadler
'''
Private Sub FinalWarningEventProcessor(ByVal myObject As Object, _
ByVal myEventArgs As EventArgs)
If (AlertType = "TAS") Then
startDisplay("C")
countWarnings = 2
Else
ExpiryWarning.Stop()
startDisplay("C")
countWarnings = 3
End If
End Sub
'''
''' determines the background color of the window
'''
Private Sub setWarningProperties(ByVal warnInstance As String)
'Dim path As String = System.Server.MapPath("~/green.bmp")
Select Case warnInstance
Case "A"
Me.BackColor = Color.Azure
End Select
End Sub
'''
''' timer makes window show fading in
'''
Private Sub timerFadeIn_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles timerFadeIn.Elapsed
If Me.Opacity >= 0.9 Then
Try
timerFadeIn.Stop()
currentTimer = timerWait
timerWait.Start()
Catch err As Exception
Finally
End Try
Else
Me.Opacity += 0.05
End If
End Sub
'''
''' timer holds window showing info
'''
Private Sub timerWait_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles timerWait.Elapsed
Try
timerWait.Stop()
currentTimer = timerFadeOut
timerFadeOut.Start()
Catch err As Exception
Finally
End Try
End Sub
'''
''' timer stop window and send Expire message
'''
Private Sub timerFadeOut_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles timerFadeOut.Elapsed
If Me.Opacity <= 0.1 Then
timerFadeOut.Stop()
If countWarnings = 3 Then
Me.Close()
Else
Me.Hide()
End If
Else
Me.Opacity -= 0.05
End If
End Sub
'''
''' Kills this form
'''
Public Sub StopWindow()
Try
currentTimer.Stop()
AlertWindowTimer.Stop()
Me.Close()
Catch ex As Exception
End Try
End Sub
End Class
here is the code to invoke:
Imports System.Threading
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ListView1 As System.Windows.Forms.ListView
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.ListView1 = New System.Windows.Forms.ListView
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(104, 152)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(88, 48)
Me.Label1.Name = "Label1"
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
'
'ListView1
'
Me.ListView1.Location = New System.Drawing.Point(88, 40)
Me.ListView1.Name = "ListView1"
Me.ListView1.TabIndex = 2
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.ListView1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aFrmAlertPopUp As New AlertWindow("oi", "test", "123", "A", "dude", "joe", "joe", "A", ListView1, "", "123", "123")
' aFrmAlertPopUp.display()
Dim t As New Thread(New ThreadStart(AddressOf aFrmAlertPopUp.display))
t.IsBackground = True
t.Start()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
|
|
|
|
|
OK. First, your post is EXCESSIVELY long. I, for one, am not looking through all of this to find out what you're doing right and not doing right.
But, as a rule, ALL UI elements, including forms, should only be shown on the UI thread. NOT from a background thread. This is because forms put up on a different thread are cut off from the applications message pump, which only exists on the startup thread.
After just briefly scanning throught his code, I fail to see why you need to start a background thread to put up this form anyway.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i want get callerId by vb.net 2003
please some body help me .....
123
|
|
|
|
|
hi friend
you are use msscommlib.ocx. add project mscomm and set ComPort value 3.
add to project ; 1 button control , 1 timer , 1 textbox control
button control text = Connect
timer1 interval = 100
timer1 enable = false
-----------------------------------------------------------------------
Dim mscomm1 As New MSCommLib.MSComm
Send AT command to modem
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br />
<br />
Try<br />
mscomm1.CommPort = 3<br />
mscomm1.PortOpen = True<br />
mscomm1.Output = "AT#CID=1" & Chr(13)<br />
<br />
TextBox1.Text = TextBox1.Text & mscomm1.Input<br />
<br />
<br />
mscomm1.Output = "AT%CCID=1" & Chr(13)<br />
TextBox1.Text = TextBox1.Text & mscomm1.Input<br />
<br />
mscomm1.Output = "AT+VCID=1" & Chr(13)<br />
TextBox1.Text = TextBox1.Text & mscomm1.Input<br />
<br />
mscomm1.Output = "AT#CC1" & Chr(13)<br />
TextBox1.Text = TextBox1.Text & mscomm1.Input<br />
<br />
mscomm1.Output = "AT*ID1" & Chr(13)<br />
TextBox1.Text = TextBox1.Text & mscomm1.Input<br />
<br />
Timer1.Enabled = True<br />
<br />
<br />
Catch ex As Exception<br />
MsgBox(ex.message)<br />
End Try<br />
<br />
<br />
End Sub<br />
anyone return OK value , your modem support CallerID , if all value return ERROR your modem not support CallerID.
now timer1.enable = true and my program listen a COM3 and return value write a textbox control.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
TextBox1.Text = TextBox1.Text & mscomm1.Input<br />
End Sub
if telephone ringing , textbox control text changed and display callerID value
RING
DATE ........
TIME ........
NUMBER .......
RING
RING
--------------------------------------
get number value the text control
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged<br />
modemcontrol()<br />
End Sub
<br />
Sub modemcontrol()<br />
Try<br />
Dim m As String<br />
Dim r As String = TextBox1.Text<br />
m = r.Substring(123, 1)<br />
<br />
If m = "0" Then<br />
r = r.Substring(123, 11)<br />
GoTo there<br />
End If<br />
<br />
If m = "P" Then<br />
<br />
Timer1.Enabled = False<br />
mscomm1.PortOpen = False<br />
<br />
TextBox1.Text = ""<br />
MsgBox("hidden number")<br />
<br />
<br />
Else<br />
<br />
r = r.Substring(123, 7)<br />
<br />
<br />
<br />
End If<br />
there:<br />
<br />
Timer1.Enabled = False<br />
<br />
mscomm1.PortOpen = False<br />
<br />
TextBox1.Text = ""<br />
<br />
msgbox("Call number : " & r )<br />
<br />
Catch ex As Exception<br />
<br />
End Try<br />
End Sub<br />
|
|
|
|
|
I am trying to bind a picturebox (and its associated picture) into a MS Access dB. I have been reviewing several snippets of code but each seem to confuse me more.  I have everything working properly in regards to data binding textboxes but the picturebox is going easily.
I want to be able to bring up an openfiledialog box (from a browse button), browse for the image (jpg, bmp, tif, gif) and then scale it to the picture box size and allow the picturebox to adjust itself for portrait or landscale layout. Then I want my already existing save button to bind the picturebox with the rest of the data to an MS Access database.
Any help would be greatly appreciated! Thank you!!
Jason
I'd rather have a bottle in front of me than a frontal lobotomy.
|
|
|
|
|
i am using vb.net 2005 and sql server 2005. i am save image this code ; select picture openfiledialog ;
<br />
<br />
Imports System.Data.SqlClient<br />
Imports System.IO<br />
<br />
Dim con As New SqlConnection("Data Source=.\sqlexpress;AttachDbFilename=|DataDirectory|\GlobalREST.mdf;Integrated Security=True;User Instance=True")<br />
Dim da As New SqlDataAdapter("Select * from URUNLER", con)<br />
<br />
da.MissingSchemaAction = MissingSchemaAction.AddWithKey<br />
Dim MyCB As SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da)<br />
Dim ds As New DataSet()<br />
<br />
Dim fs As New FileStream(Me.ButtonEdit1.Text, FileMode.OpenOrCreate, FileAccess.Read)<br />
Dim MyData(fs.Length) As Byte<br />
fs.Read(MyData, 0, fs.Length)<br />
fs.Close()<br />
con.Open()<br />
da.Fill(ds, "URUNLER")<br />
Dim myRow As DataRow<br />
myRow = ds.Tables("URUNLER").NewRow()<br />
<br />
myRow("URUNKODU") = TextEdit2.EditValue<br />
myRow("URUNADI") = TextEdit3.EditValue<br />
myRow("URUNGRUBU") = "6"<br />
myRow("FIYAT1") = TextEdit4.EditValue<br />
myRow("FIYAT2") = TextEdit5.EditValue<br />
myRow("FIYAT3") = TextEdit6.EditValue<br />
myRow("FIYAT4") = TextEdit7.EditValue<br />
myRow("ACIKLAMA") = Me.MemoEdit1.EditValue<br />
myRow("RESIM") = MyData<br />
<br />
ds.Tables("URUNLER").Rows.Add(myRow)<br />
da.Update(ds, "URUNLER")<br />
<br />
fs = Nothing<br />
MyCB = Nothing<br />
ds = Nothing<br />
da = Nothing<br />
<br />
con.Close()<br />
con = Nothing<br />
<br />
<br />
but this code not work Access database. You are save picture file name and file location to access database. and select PictureBox component and expand DataBinding property click Advanced. Select PictureLocation value and select database picture location field.
|
|
|
|
|
hi everbody
i am using SerialPort component. set SerialPort1.PortName value COM3 , open port and listen COM3(modem).
<br />
<br />
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived<br />
Dim returnStr As String = ""<br />
<br />
Do<br />
Dim Incoming As String = Me.SerialPort1.ReadLine<br />
If Incoming Is Nothing Then<br />
Exit Sub<br />
Else<br />
returnStr &= Incoming & vbCrLf<br />
Textbox1.Text = returnStr<br />
End If<br />
Loop<br />
<br />
Return<br />
End Sub<br />
<br />
if i am not using thread , my code is not working.
Error Code :
Cross-thread operation not valid: Control 'TextBox1' accessed from a thread other than the thread it was created on.
and i am using thread , my code is work.
<br />
<br />
Imports System<br />
Imports System.ComponentModel<br />
Imports System.Threading<br />
Imports System.Windows.Forms<br />
<br />
----------------------------------------------------<br />
<br />
Delegate Sub SetTextCallback(ByVal [text] As String)<br />
Private demoThread As Thread = Nothing<br />
<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
Me.demoThread.Start()<br />
<br />
End Sub<br />
<br />
Private Sub SetText(ByVal [text] As String)<br />
<br />
If Me.TextBox1.InvokeRequired Then<br />
Dim d As New SetTextCallback(AddressOf SetText)<br />
Me.Invoke(d, New Object() {[text]})<br />
Else<br />
Me.TextBox1.Text = [text]<br />
End If<br />
<br />
End Sub<br />
<br />
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived<br />
Dim returnStr As String = ""<br />
<br />
Do<br />
Dim Incoming As String = Me.SerialPort1.ReadLine<br />
If Incoming Is Nothing Then<br />
Exit Sub<br />
Else<br />
returnStr &= Incoming & vbCrLf<br />
SetText(returnStr)<br />
End If<br />
Loop<br />
<br />
Return<br />
End Sub<br />
<br />
<br />
<br />
but first call , text1.text ;
RING
DATE .......
NUMBER ...........
----------------------------------
second call text1.text ;
RING
DATE .......
NUMBER ...........
...........
.........
RING
DATE .......
NUMBER ............
.......
i am not clear text1.text. ?? how i do clear text1.text???
|
|
|
|
|
Hi all,
i have 3 tables
MultipleChoice
MultipleChoiceAnswer
Level
i wanto amke a join with these 3 where MultipleChoice.MID=MultipleChoiceAnswer.MID AND MultipleChoice.levelID=Level.LevelID
THx
Arshaad
Arshaad
|
|
|
|
|
Did you post this just to inform us, or do you have any problems with it?
---
b { font-weight: normal; }
|
|
|
|
|
I really need help.. sry if was ambiguous
Give the syntax pz
Thx
|
|
|
|
|
Really simple:
select *<br />
from MultipleChoice, MultipleChoiceAnswer, Level<br />
where MultipleChoice.MID=MultipleChoiceAnswer.MID AND MultipleChoice.levelID=Level.LevelID
or
select *<br />
from MultipleChoice<br />
inner join MultipleChoiceAnswer on MultipleChoice.MID=MultipleChoiceAnswer.MID<br />
inner join Level on MultipleChoice.levelID=Level.LevelID
---
b { font-weight: normal; }
|
|
|
|
|
mcqRecordset.Open "select * From MultipleChoice, MultipleChoiceAnswer,Level Where MultipleChoice.multipleChoiceID=MultipleChoiceAnswer.multipleChoiceID AND MultipleChoice.levelID=Level.levelID", myConnection, adOpenStatic, adLockOptimistic
Error: error in from clause
Thx again
|
|
|
|
|
Level is a reserved word. Rename the table.
---
b { font-weight: normal; }
|
|
|
|
|
hello, i made an ip messenger that can be used for chatting between 2 users only The server and the client. I used the tcpClient and vb.net.
I want to know how can i send a file (textfile) or what so ever via ip! can this be done?? thanks alot
Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.
|
|
|
|
|
How could i select a single speaker to play a sound with DirectSound?
I've a 5.1 soundcard which is configured as sorround sound, so that i can use the 6 outputs. This card appears in the system as one device (i have another 5.1 card and, with special drivers, it appears as 3 stereo devices, so it s easier to use, but i cannot use these drivers on the first card) and ive seen an application which can play a sound to a single speaker, so i should be able to do it too.
Ive thought about playing the sound as a 3D sound and selecting its position, but i dont think it s a good idea.
Any idea? Thx
|
|
|
|
|
<b>Dear Sir,
<b>
i amworking on vb.net
i have a textbox field in the form called CardId
now what i want is to generate numbers automatically and in a sequence.
Suppose,
when i click on the ADD RECORD button to add a new record, the cardid should be automatically generated as 1. if the record is saved ,then the next time when i am trying to add another record the cardid should be 2. but if the first record having cardid 1 is not saved then the next time i am adding a record the card id should be 1.
can u pl help me through code.</b></b>
Arun
|
|
|
|
|
dear arun,
You can refer the code below.
Function GenerateCode() As String
Dim MyCommand As SqlClient.SqlDataAdapter
Dim Dsg As New Customer
Dim LastRec As Integer
Try
MyCommand = New SqlClient.SqlDataAdapter("select * from Cusdetail order by 1 asc", Myconnection)
MyCommand.Fill(Dsg, "Cusdetail")
LastRec = Dsg.CusDetail.Count()
If LastRec > 0 Then
LastRec = LastRec - 1
TxtCusCode.Text = Ds.CusDetail(LastRec).CusCode + 1
Else
TxtCusCode.Text = "100001" 'Code for first Customer
End If
Catch ex As Exception
Label11.Text = ex.Message()
End Try
Myconnection.Close()
End Function
Thankx
Murtuza Patel.
|
|
|
|
|
this is easy...u can get the cardid field from the database into a dataset...and check for the largest number...and then add 1 to it and set it as ur generated number in the text box...
subhrajyoti
|
|
|
|
|
is it not easier to use Access for that sort of things?
|
|
|
|
|
Hello everybody!
I should write a program to power on & power off a video projector..
I use the SerialPort Class in the .NET Framework to transmit the necessary codes via a serial cabel that is connected to that video projector - it works fine (power on & power off)..
But now I should develop a GUI program to do that..
In that GUI program I need to specify on what time the specific code will be transmitted to the projector - maybe also the days (Monday until Friday or so..)
It could look like:
Start Time: 08:00
End Time: 11:00
From: Monday until Friday
In the codeproject messageboard I have found the "task scheduler class library". With that library I could create two scheduled tasks in win2k to perform "power on" and "power off". In order to that I will have to create two console-based programs executed by the scheduled tasks..
(http://www.codeproject.com/csharp/TSNewLib.asp[^]
But is there a better concept to achieve my goals?
Is there any other possibility to implement a timer to control the video projector at any one time?
Thanks in advance for any suggestion!
(Sorry for my English, it is not my first language)
|
|
|
|
|
Generally there are three ways of doing this:
:: Use the scheduler.
:: Let the program run in the background and wait until the right time.
:: Develop a service, that runs in the background and waits until the right time.
The third one is basically creating your own scheduler, so it might be a bit over the top for your project. Whether you should use the first or the second method mostly depends on if you want to have a program running constantly on the computer or not.
yomam wrote: Sorry for my English, it is not my first language
(Nor is it mine.) Even if your use of the language is not perfect, I find it far better than that of many users here that actually do have english as their first language. They just don't make an effort to use it correctly.
---
b { font-weight: normal; }
|
|
|
|
|
Thank you very much for your suggestions!
I think by using the task scheduler my requirements will be satisfied. Implementing my own scheduler would be a bit too much.. Therefore I will have to write some code to import all scheduled tasks with their settings and find the proper ones which are "responsible" for my video projector in order to make changes for power off and power on time..
|
|
|
|
|
i have developed an application using MS SQL, VB 6 usifn Seagate crystal reports. i want to create this application as a demo version, for this i need to go for putting the expiry date for the application. how can i do that ? or something to be done during pacakage and deployment ?
thanx a lot ..
furher
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
