|
|
Hi everyone.
I'm going to go directly to the question.
I am trying to create an app that creates a barcode and it's going to be copied to a PDF file, but that's not the problem:
I've all the code to create the barcode (the type is EAN-13) but the only thing that's missing is the size of it. By default, the size of the barcode generated with iTextSharp is really small. I have it in a PictureBox and I can change only the height of it, I need also the width and if it's possible, without losing quality.
Practically I obtain all the code from here: [^] . You can download the project if you want at the botton of that page.
So, finally, as I said, the question is that if there's any method to change the width or size (make it bigger) of the barcode without losing quality.
I think I don't forget nothing.
Thank you all in advance!
Bye.
modified 27-Jun-16 16:05pm.
|
|
|
|
|
Any assistance is appreciated,the code below just does not seem to update the textbox when button 1 is clicked. The script is split from a larger application just to give to highlight the issue.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As New doSomething
Dim s As New Threading.Thread(AddressOf a.update)
s.IsBackground = True
s.Start()
End Sub
End Class
Public Class doSomething
Public Sub update()
SetControlText(Form1.TextBox1, "Hey Please Update the Textbox")
End Sub
Private Delegate Sub SetControlTextInvoker(ByVal ctl As Control, ByVal text As String)
Private Sub SetControlText(ByVal ctl As Control, ByVal text As String)
If ctl.InvokeRequired Then
ctl.Invoke(New SetControlTextInvoker(AddressOf SetControlText), _
ctl, _
text)
Else
ctl.Text = text
End If
End Sub
End Class
|
|
|
|
|
Try passing the real instance of Form1 to the doSomething class, rather than relying on the auto-created instance that only exists for VB6 compatibility.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As New doSomething
a.Target = Me.TextBox1
Dim s As New Threading.Thread(AddressOf a.update)
s.IsBackground = True
s.Start()
End Sub
End Class
Public Class doSomething
Public Property Target As TextBox
Public Sub update()
SetControlText(Target, "Hey Please Update the Textbox")
End Sub
Private Shared Sub SetControlText(ByVal ctl As TextBox, ByVal text As String)
If ctl.InvokeRequired Then
ctl.Invoke(New Action(Of TextBox, String)(AddressOf SetControlText), ctl, text)
Else
ctl.Text = text
End If
End Sub
End Class
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
i am trying to add records to database by Lynx grid, but i did not understand perfect code.
i googled also, but not find right example
Can any one give me best example
|
|
|
|
|
i am trying to add records to database by Lynx grid, but i did not understand perfect code.
i googled also, but not find right example
Can any one give me best example
|
|
|
|
|
I previously used Word for Mac 2011 where I recorded the following macro to set all margins at 0.4". I tried recording the same macro on Word for Mac 2016 but the keystrokes were not recorded. I tried to copy and paste the following code into the Word for Mac 2016 VB editor, but I got a compiler error. Can you help me debug it? Thanks.
Sub Macro1()
'
' With ActiveDocument.PageSetup
.LineNumbering.Active = False
.TopMargin = InchesToPoints(0.4)
.BottomMargin = InchesToPoints(0.4)
.LeftMargin = InchesToPoints(0.4)
.RightMargin = InchesToPoints(0.4)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
End With
End Sub
|
|
|
|
|
Member 12603473 wrote: but I got a compiler error.
Unfortunately we cannot see your screen, so have no idea what error that may be.
|
|
|
|
|
I copy-pasted it below. I also have screenshots but I don't see how to upload them to you. I apologize for being new to this forum.
Sub Macro1()
'
' With ActiveDocument.PageSetup
.LineNumbering.Active = False
.TopMargin = InchesToPoints(0.4)
.BottomMargin = InchesToPoints(0.4)
.LeftMargin = InchesToPoints(0.4)
.RightMargin = InchesToPoints(0.4)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
End With
End Sub
|
|
|
|
|
That is exactly what you posted in your original question. But you still have not told us what the error is.
|
|
|
|
|
When I run the macro, a small window pops up that says "Compile error: Invalid or unqualified reference". When I click "OK" the code comes up and ".LineNumbering.Active =" is highlighted. If I delete the entire ".LineNumbering.Active = False" line and try again, I get the same compiler error message and now ".TopMargin =" is highlighted.
I am no expert on VBA by any stretch of the imagination, but it seems to me that the reference "ActiveDocument.PageSetup.anything" is invalid. As soon as the complier tries to reference ActiveDocument.PageSetup.whatever, it spits out the Compile error.
Since exactly this code worked fine in Word for Mac 2011, was there some change in reference syntax in Word for Mac 2016 that I don't know about? I also found it curious that I could record certain keystrokes with "Record Macro" in Word for Mac 2016 but not certain drop-down menu commands. I hope that this is not a bug in Word for Mac 2016.
Thanks for your patience.
|
|
|
|
|
I just noticed the following in your code snippet:
Sub Macro1()
.LineNumbering.Active = False
The first line of your macro is commented out, so you do not have a reference for all the following lines.
|
|
|
|
|
I uncommented and ran and got a different error: "Run-time error '424': Object required". I clicked Debug and the first line was highlighted "With WordApp.ActiveDocument.PageSetup"
|
|
|
|
|
Sorry, but I do not have a Mac system so there is no way I can test this for you. I can only suggest that for some reason the macro is not getting hold of the PageSetup object.
|
|
|
|
|
Thank you for helping. My impression is that Microsoft deprecated the ability to encode drop-down menu commands into user-recorded macros in Word for Mac 2016. This would explain my inability to record page margin changes into a macro in the 2016 version and would also explain why my 2011 macro code is not getting hold of the PageSetup object in the 2016 version. Word for Mac 2016 does include a new drop-down menu option that achieves nearly the same margin adjustments, so I'll just use that one for now. You assistance is much appreciated.
|
|
|
|
|
Dear Sirs,
I got a UserControl called "Card"; on a page I will have up to a hundred Cards, named as Card0, Card1, etc. and I cannot access their properties or controls because Findcontrol does not work for Usercontrol.
BTW, here is my code:
Dim one_card as UserControl = FindControl("Card0")
Dim one_card as Card = FindControl("Card0")
Dim one_card as Control = FindControl("Card0")
I also tried Page.Findcontrol.
What am I doing wrong? Are there any workarounds? Thanks.
|
|
|
|
|
Can you share the markup for one of these controls?
|
|
|
|
|
<%@ Register Scr="~ascx/card.ascx" TagPrefix="uc1" TagName="Card" %>
<uc1:card id="Card0" runat="server iCode_str="pg" />
iCode_str is property and Visual Studio perfectly sees it!!
If I use
Dim One_Card as Card= FindControl("Card0")
str_a=One_card.iCode_st
The last line is not underlined by Visual Studio as an error. Also, it shows the property in a dropdown box. It means, all set well, but I just cannot understand why Findcontrol does not work...
|
|
|
|
|
Is it in a master page? Are you using ContentPlaceHolder?
|
|
|
|
|
Not master page. Can you recreate something on your computer, will it work? It seems to me that all those questions are just to give you points. Sorry.
|
|
|
|
|
Points don't buy anything. We're really just idiots in our spare time trying to help.
To recreate conditions on your machine, I will need your machine 
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
So, does Findcontrol work for Usercontrol on you machine?
|
|
|
|
|
For my user controls on "my machine" (er...asp.net...) yes. The questions I've asked are an attempt to drag sufficient information out of you so that someone can actually help. "Points"...it's not like I can convert those 2 rep points into cash!
|
|
|
|
|
Can I have a sample of the code please where Findcontrol does work for Usercontrol. Thanks.
==================
My further investigation showed that Findcontrol does not work for Usercontrol placed on a page which has a masterpage. Is it a bug?
modified 25-Jun-16 1:06am.
|
|
|
|
|
The only possible workaround for me at this stage is not to use masterpages.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
