|
Herboren wrote: I was at a mcdonalds hotspot typing in my car
Just leaving work were you
[Its a joke, those in the know might get it!!!!!]
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
actually i work in IT but we got rid of the bright broadband to save money, me and the wife live off hotspots =)
|
|
|
|
|
Look at the code below. This works fine.
In the Settings, the listbox items to be stored should be saved in type Specialized String Collection;
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
updateList()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedIndices.Count > 0 Then
ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(0))
End If
Dim newlist As New Specialized.StringCollection
For Each item In ListBox1.Items
newlist.Add(item)
Next
My.Settings.Item("theList") = newlist
My.Settings.Save()
updateList()
End Sub
Private Sub updateList()
ListBox1.Items.Clear()
For Each item As String In My.Settings.Item("theList")
ListBox1.Items.Add(item)
Next
End Sub
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
I understand how the settings are saved, but to actually remove the setting from the string collection is what im trying to accomplish
|
|
|
|
|
It shows you in the button click event, recreate a specialized string collection and push it back onto my settings.
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
Public Sub DatePersian(ByRef StrDay As String, ByRef StrMonth As String, ByRef StrDayOfMonth As String, ByRef StrYear As String)
Dim P As New Globalization.PersianCalendar
Select Case P.GetDayOfWeek(Date.UtcNow)
Case DayOfWeek.Friday : StrDay = "جمعه"
Case DayOfWeek.Monday : StrDay = "دوشنبه"
Case DayOfWeek.Saturday : StrDay = "شنبه"
Case DayOfWeek.Sunday : StrDay = "یکشنبه"
Case DayOfWeek.Thursday : StrDay = "پنج شنبه"
Case DayOfWeek.Tuesday : StrDay = "سه شنبه"
Case DayOfWeek.Wednesday : StrDay = "چهارشنبه"
End Select
Select Case P.GetMonth(Date.UtcNow)
Case 1 : StrMonth = "فروردین"
Case 2 : StrMonth = "اردیبهشت"
Case 3 : StrMonth = "خرداد"
Case 4 : StrMonth = "تیر"
Case 5 : StrMonth = "مرداد"
Case 6 : StrMonth = "شهریور"
Case 7 : StrMonth = "مهر"
Case 8 : StrMonth = "آبان"
Case 9 : StrMonth = "آذر"
Case 10 : StrMonth = "دی"
Case 11 : StrMonth = "بهمن"
Case 12 : StrMonth = "اسفند"
End Select
StrDayOfMonth = P.GetDayOfMonth(Date.UtcNow).ToString
StrYear = P.GetYear(Date.UtcNow).ToString()
End Sub
|
|
|
|
|
As you forgot to ask a question, I'll ask you some:
- why are you using DateTime.UtcNow several times? are you aware they may all return a different value, and if you're unlucky, the net result will be very incorrect?
- why are you using select constructs for translating a number into a string? wouldn't initialized arrays be the obvious choice?
- why didn't you post your code snippet in PRE tags? and add some text explaining what is going on?
I noticed you are new on CodeProject so all is forgiven. However, I strongly suggest you:
1. read the "how to ask a question" and "how to get an answer" messages on top of this forum;
2. read some other posts, to see how other people are handling things.
Cheers.
|
|
|
|
|
Hi,
I am writing a vb.net application. I have a listview with 4 columns. I want to put these values into an array. What is the best way of doing this.
|
|
|
|
|
IMO a ListView is a viewer, which means it shows data it got somewhere; that same somewhere should be used to stuff an array, not the ListView itself. You shouldn't mix up presentation and business layers.
|
|
|
|
|
I have ceated two application, each having a UDP socket.One applicaion broadcast data in network using udp socket and other application search for the same in the network and if it finds the data it respond.
Now problem is when I use applications on different machines then it works fine.But when I use both application on the same machine then one application never search the broadcasted data.
How can I make changes like "loopBack" so that when both application run on the same machine, it works fine...
Thanks in adv....
|
|
|
|
|
Thanks in advance..!
I am working on a POS system in that I have to use Kitchen Printer which is connected to a Monitor /Output Device
what i need to know is how to display Orders on Kitchen Printer (Output Device) , Is it same like printing on a printer or what any Helping material/Link would be highly appreciated
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
Your best source of information is the printers documentation.
Chances are, you'll be printing raw data directly to the printer. How you do that depends entirely on the devices you are working with and what they support.
|
|
|
|
|
Thanks , searching for Devices any one you wants to recommend
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
Nope. I've never used any of them.
|
|
|
|
|
Thanks
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
I'm testing the GetCursorPos function as the code below reflects. The issue I'm running into is that the Worksheet_SelectionChange event for Sheet1 is not capturing the changing X and Y's for the mouse when I'm changing cell positions with the arrow keys. If I click on a new cell, the values change fine. But I need new X and Y computed when I'm moving the cursor with the arrow keys.
<br />
'This is in Module1<br />
Option Explicit<br />
<br />
Private Type POINTAPI<br />
X As Long<br />
Y As Long<br />
End Type<br />
<br />
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long<br />
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long<br />
<br />
Function MouseX(Optional ByVal hWnd As Long) As Long<br />
Dim lpPoint As POINTAPI<br />
GetCursorPos lpPoint<br />
If hWnd Then ScreenToClient hWnd, lpPoint<br />
MouseX = lpPoint.X<br />
End Function<br />
<br />
Function MouseY(Optional ByVal hWnd As Long) As Long<br />
Dim lpPoint As POINTAPI<br />
GetCursorPos lpPoint<br />
If hWnd Then ScreenToClient hWnd, lpPoint<br />
MouseY = lpPoint.Y<br />
End Function<br />
<br />
'This is in Sheet1<br />
Option Explicit<br />
<br />
Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />
Range("A1").Value = MouseX<br />
Range("A2").Value = MouseY<br />
End Sub<br />
|
|
|
|
|
After reading your description, I'm a bit confused. The cursor position returned by GetCursorPos is the mouse pointer, not the selected cell in Excel. It sounds like you're trying to get the screen coordinates of the selected cell??
|
|
|
|
|
Hi Dave: Yes, I'm trying to get the mouse coordinates of the selected cell. I understand that GetCursorPos returns the mouse position. I'm just displaying those values into Range("A1") as a test as I learn how to use this particular function. (Later, I'm going to use the mouse coordinates to change the position of a command button as the user moves around the sheet.) The issue I'm having is that the values in "A1" don't change when I move the around the sheet using the arrow keys. They only change when I click on a cell on the spreadsheet.
|
|
|
|
|
If the mouse doesn't move as your change the selected cell with the arrow keys, the values returned won't change.
If you want to find out how to get the coords of a cell, read this[^]. It's not as simple as what your code suggests.
|
|
|
|
|
Dave: Yes! You're right. Thanks. I'm new to mouse events so I was fixating on the the arrow keys. So I think I need to use a different method to accomplish what I need which is to have a CommandButton's location change based on the user's movements around a sheet. A draggable button would allow the user to move the button as needed. I've got some code for a drag/drop process but ran into an immediate issue. I put CommandButton1 on a sheet and put the code below into the MouseDown event handler. When I click on the button, however, I get a "Variable not defined" pointing to 'vbRightButton'. Any idea what's causing this? (BTW, I'm running VB6.5 and Excel 2003)
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = vbRightButton And Shift = vbCtrlMask Then
Range("A1") = "test"
End If
End Sub
|
|
|
|
|
You're not using VB6.5 (there's no such thing - it stopped at VB6.) You're using VBA (Visual Basic for Applications) in Excel. VBA doesn't have all the same constants defined as VB6 does. vbRightButton doesn't exist in VBA. You have to write the code to define these constants yourself, which you can find here[^].
|
|
|
|
|
Thanks, Dave. I figured it must be a version incompatibility. I'll refer to the link you provided. BTW, I looked at the Help item on the the VBA menu and this is what it lists:
Microsoft Visual Basic 6.5
Copyright 1987-2006 Microsoft Corp.
Version 1024
VBA: Retail 6.5.1024
Forms3: 12.0.6025.500
But that's a minor point. I get what you're saying. More after a bit of study. Thanks again.
|
|
|
|
|
VBA went to 6.5 and is still in use in Office 2007, maybe even 2010 - I don't have a copy to check.
If you mention Visual Basic (alone) or VB6, everyone will assume it's the full Visual Studio 6.0 version. If you're working in Office, you have to say VBA, otherwise, everyone will think you're doing Office interop from a VB6 app.
|
|
|
|
|
Not relevant to this post just to let you know: VBA version in Office 10 is 7.0.1590 and Form3 is 14.0.4747.100.
Tosch
|
|
|
|
|
Right, got it. So the code I've been consulting for VB6 is not going to work for VBA. Can you suggest a drag/drop method for a CommandButton that will work in VBA?
|
|
|
|