I have a weird situation where (randomly) a previous Cell value is read by the Excel VBA code.
eg: Cell 1A had a value = Y. It was updated to N. However a subsequent VBA code read the cell value as Y
It has been hard to troubleshoot as this was a random occurrence. I was lucky to catch one today, and upon stepping through the code (using F8) discovered that the correct current value was read during debug!. Re-run the macro without debug mode and the correct value was read.
Its very confusing and I cannot think of anything but an Excel bug.
Have you encountered this issue at all and if so what solution/s have you applied.
Thanks in advance.
With the amount of people that have been using Excel, it is very unlikely that there's a bug that's that basic. Also, the computer doesn't do stuff "randomly"; that's simply our way of describing stuff when we can't see the pattern.
Is there timing involved in your code? Can you reproduce the error?
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
May I have some help on coding this in VB.net console app
If the user selects the ‘Enter RLE’ option:
a. the user is asked how many lines of RLE compressed data they want to enter
b. the program should check that the number entered is greater than 2 and if it isn’t display a suitable error message and get the user to keep re-entering the number until it is valid
c. if the user entered a valid number, they then enter the compressed data one line at a time until they have entered the specified number of lines
d. once all the compressed data has been entered, the program decompresses the data and displays the ASCII art image
e. the user is returned to the main menu.
You basically dumped your requirements but told us nothing about which part you are having troubles with. Remember we know nothing about your current knowledge, we cannot access your mind, so without any issue description your "question" only looks like a 'please do it for me' type of question.
I'm really not trying to be harsch. Maybe reading How to get an answer to your question - Visual Basic Discussion Boards[^] would give you some clues about why we need you to be as specific as possible when you post a question.
"Five fruits and vegetables a day? What a joke!
Personally, after the third watermelon, I'm full."
asked for few solutions. Didn't ask you to complete the whole code.
Then what are you asking us for?
You've titled your post "cant get Ascii art to display after the RLE file" but haven't shown us any of your code.
So to show you any way of doing this we would have to write (all) the code from scratch. This is not a code writing service. Show us that you have at least tried something and we are usually more than willing to help, but posting angry faces in reply is not a way to gain our good favour
I'm trying to create a CustomBorderlessForm and paint myself. I've gotten the basic functionality
to work but have this issue.
I have derived a TestForm from the custom BorderlessForm and when dropping a menustrip
or toolstrip onto the TestForm, these controls dock at the top of the form overlaying
the title area which I draw myself. I have tried a number of solutions with no success
and now I am just trying to do the simplest thing I can think of.
I have created a property on the BorderlessForm to Enable or Disable showing a MenuStrip.
When Enabled on the derived TestForm, I create a MenuStrip and place it on the TesForm at a specific location.
This works but I cannot edit the MenuStrip from the Designer. Below is code for a custom
ParentControlDesigner in which I am trying to EnableDesignMode to allow editing of the MenuStrip.
However it still does not work.
I have tried debugging into BorderlessFormDesigner below but the Designer does not hit the break point within Initialize(). To do this I have setup the project in MyProject to execute a new instance of VS and load the project. Within the new instance of VS I open the TestForm in the Designer but the Designer does not hit the break point. I've tried setting a break point in both the
first and second instance.
I've done this sort of thing before with other projects with success. I'm guessing maybe these
controls to not support this type of functionality.
If this is possible I would appreciate some advice.
Here is the code excluding the BorderlessForm.Designer.vb code.
', GetType(ParentControlDesigner))> _Const ConstGridBorderlessTitle AsString = "BorderlessForm"' The MenuStrip object and access for the DesignerPrivate _MenuStrip As MenuStrip
PublicReadOnlyProperty MenuStrip1() As MenuStrip
EndGetEndProperty' The property to enable showing a MenuStrip
DefaultValueAttribute(GetType(Boolean), "False"), _
DescriptionAttribute("Show/hide MenuStrip.")> _
PublicProperty EnableMenuStrip() AsBooleanGetReturn (Me._MenuStrip IsNotNothing)
EndGetSet(ByVal value AsBoolean)
If value = TrueThenIfMe._MenuStrip IsNothingThenMe._MenuStrip = New MenuStrip()
Me._MenuStrip.BackColor = Color.LightSteelBlue
Me._MenuStrip.Dock = DockStyle.None
Me._MenuStrip.Location = New System.Drawing.Point(6, 24)
Me._MenuStrip.Name = "BFMenuStrip"Me._MenuStrip.Size = New System.Drawing.Size(336, 24)
Me._MenuStrip.TabIndex = 0Me._MenuStrip.Text = "BFMenuStrip"Me.Controls.Add(Me._MenuStrip)
EndIfElseIfMe._MenuStrip IsNotNothingAndAlsoMe.Controls.Contains(Me._MenuStrip) = TrueThenMe.Controls.Remove(Me._MenuStrip)
Me._MenuStrip = NothingEndIfEndSetEndPropertyPublicClass BorderlessFormDesigner
' Host objectPrivate HostControl As BorderlessForm = Nothing' Used to refresh action list when it changes.Private ActionUiService As DesignerActionUIService = Nothing'''<summary>''' Initialization
'''</summary>'''<paramname="component"></param>'''<remarks></remarks>PublicOverridesSub Initialize(ByVal component As System.ComponentModel.IComponent)
IfMe.Control Is BorderlessForm Then
HostControl = DirectCast(component, BorderlessForm)
' Give designer access to MenuStrip
EndIf' Acquire a reference to DesignerActionUIService.'Me.ActionUiService = GetService(GetType(DesignerActionUIService))EndSubEndClassEndClass
I have a MS Word fillable form template that has many fields I wold like to have an interactive QR Code to incode three fields [Account Number], [Form Name] and [Date] that once the user fill out the form the QR will capture the data entered and generated like pdf forms.
I have downloaded a free QR Code font but unfortunately, it generate many qr for each character not combine to one.
Is there any work around by useing VBA to combine them to one QR?
By the way I found a built-in QR in MS Word 2013 but I do not know how to use it.
Any suggestions would be appreciated.
Thanks in advance.
I have 80 email addresses separated with comma in a textbox. I also have four empty textboxes. How can I share the 80 email addresses equally among the four textboxes? I have not tried any thing because I no idea on how to start. A sample code can help.
I'm trying to write some code in an Excel macro to allow me to rename files on an SFTP site before downloading them using wininet.dll.
I've managed to get a simple block written that works well against a test server, but it fails when I try to access the actual server I need.
I suspect that it's because this server uses Port 22, not the standard Port 21. But, I can't see how to change that Port address to what I need.
In InternetOpenA, I've tried setting dwAccessType to INTERNET_OPEN_TYPE_PROXY (3) and lpszProxy to ftp=ftp://Proxy1:22 (with my specifics replacing the placeholders). But, no good. InternetConnectA refuses to connect. InternetOpenA works fine and returns a valid handle, but I just can't get a connection.
So, since this code worked on the test server using the defaults, I figure I'm not modifying the Port properly for use on my specific server.
All that being said, my question, I think, is; how do I change the port address in the InternetOpenA function?
Oh, an afterthought - would that this is an SFTP, not FTP, be an issue?
That's what I did. I tried populating nServerPort with my port address, but no good. Then, further searching informed me that nServerPort is not an actual address, but a flag with values 0-5. I tried using 5 and then set up the address in dwService with port 22 specified, but InternetConnectA still returned 0.
Last Visit: 26-Feb-20 12:23 Last Update: 26-Feb-20 12:23