which created a spin control with two button with left arrow and right arrow. Now i want to perform some job based on the user clicks on these two buttons. I tried by adding notification message in Message map as follows:
ON_NOTIFY(NM_CLICK, IDC_SPIN1, OnDropDown)
The above message dint called my OnDropDown().
I tried adding ON_WM_HSCROLL(), it worked. The function OnHScroll is getting executed when i click on right or left arrow buttons in spin control.
But what my fear is, in near future i may also add a scroll bars (horiz and veritcal) in my application. That time this may get conflict with my spin control.
So, i am looking for a message which will notify me when left or arrow arrow is invoked on spin control.
That misses the common window style flags like WS_CHILD | WS_VISIBLE | WS_TABSTOP.
Just out of interest:
Why are you creating your controls manually instead of using resource templates?
With templates the default settings are initially set in the resource editor so that such errors did not occur.
Text in Arabic would either be written in Unicode, or using an Arabic "code page" (a throwback to the days when characters were 8 bits, and so your program had to "know" what language was encoded in codes 128..255). One way to encode Unicode in QR codes is using UTF-8. Have you tried running the raw QR data through a UTF-8 decoder?
Note that if the raw QR data does not start with a BOM (Byte-order mark), you will have to try both low-endian and high-endian versions.
Private Sub doupdate()
RichTextBox1.Text = str
Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
mystring = SerialPort1.ReadLine
Dim encExc As New UTF8Encoding
Dim encRepl As New UTF8Encoding
Dim s As String = mystring
Dim index As Integer = encExc.GetByteCount(s)
Dim bytes(Index + 3) As Byte
encExc.GetBytes(s, 0, s.Length, bytes, 0)
bytes(index) = &HFF
bytes(index + 1) = &HD8
bytes(index + 2) = &HFF
bytes(index + 3) = &H1
Dim enc As Encoding = encRepl
str = ""
Dim si As New System.Globalization.StringInfo(mystring)
Dim unicodeTestArray(si.LengthInTextElements) As String
For i As Integer = 0 To si.LengthInTextElements - 1
unicodeTestArray(i) = si.SubstringByTextElements(i, 1)
str = str & System.Text.Encoding.UTF8.GetString(bytes)
Me.Invoke(New EventHandler(AddressOf doupdate))
Catch ex As Exception
BUT I GOT THE RESULT
Am trying to connect WinTECH OPC Client to MaxDNA V6.0.7 server in local PC and LAN network also. These Connection was successfully established but it was showed "Tag Quality bad" and "Value Unspecified Error".
How to solve this issue please help me ASAP.