|
Wow - that's the ugliest code I've seen for some time. If you want to reset any of these values, then write code to set their values. Duh.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
my first time using VB... 
|
|
|
|
|
Is this the first time you've used ANY language (procedural)?? The rules for setting variable values apply to them all, not just VB.
|
|
|
|
|
Most likely downloaded a project and want's to edit it, never seeing a language before.
Some guy pasted: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox_ByteEn.Text = "" Then
ODLAT_ARM_x_MASK_CTL = ODLAT_ARM_x_MASK_CTL And (Not (&H100000))
Else
If TextBox_ByteEn.Text = "00" Then
ODLAT_ARM_x_MASK_CTL = ODLAT_ARM_x_MASK_CTL Or ((&H100000))
ODLAT_ARM_x_REQ_B = ODLAT_ARM_x_REQ_B Or Convert.ToUInt32(TextBox_ByteEn.Text) * 32
TextBox4.Text = Hex(ODLAT_ARM_x_REQ_B)
ElseIf TextBox_ByteEn.Text = "01" Then
ODLAT_ARM_x_MASK_CTL = ODLAT_ARM_x_MASK_CTL Or ((&H100000))
ODLAT_ARM_x_REQ_B = ODLAT_ARM_x_REQ_B Or Convert.ToUInt32(TextBox_ByteEn.Text) * 64
TextBox4.Text = Hex(ODLAT_ARM_x_REQ_B)
Just do ODLAT_ARM_x_MASK_CTL = 0, if it crashes, oh well...
|
|
|
|
|
aswd wrote: ODLAT_ARM_x_REQ_B = ODLAT_ARM_x_REQ_B Or Convert.ToUInt32(TextBox_ByteEn.Text) * 32
You know the value of TextBox_ByteEn.Text, so you don't have to parse it. It's always zero, so the entire statement is actually pointless.
If you want to set the value instead of combining it with the previous value, you just assign zero to the variable.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
I have already installed Fonts of Different Indian Languages(Hindi, Gujarati ..) .
I want to change my change Language of My Application as per Given Option(i.e. i will give option for language, if i select English then whole application will show in English , if Hindi then whole application in Hindi).
For Labels , grids.. it works fine, but problem occurring with textbox input language.
if i select 'Hindi' then 'Hindi' Text must be written in textbox.
|
|
|
|
|
If you're talking about translating words, no font is going to do this for you. You actually have to have some kind of translation software built into your app. This is not something you will find in the .NET Framework. That's IF I understand your question correctly.
|
|
|
|
|
hpcontractor wrote: f i select 'Hindi' then 'Hindi' Text must be written in textbox.
You change the font of that textbox to Hindi. If that font is installed, input characters will appear in Hindi. But your users should know the character map to enter text. Or else you need to integrate some kind of phonetic transliteration to your program.
|
|
|
|
|
N a v a n e e t h wrote: If that font is installed, input characters will appear in Hindi.
Thanks for Reply,
Hindi Font is installed, and if i select Language Hindi from 'Language Bar' , then i can write in Hindi in Textbox, but can i do same thing from code?
|
|
|
|
|
hpcontractor wrote: Hindi Font is installed, and if i select Language Hindi from 'Language Bar' , then i can write in Hindi in Textbox, but can i do same thing from code?
when you select language from 'Language Bar' then change font of text box
|
|
|
|
|
default font of system in English. Hindi font is already installed.
When I select Language Hindi from 'Language Bar' , then i can write in Hindi in Textbox.
But, i want that user can able to write it in Hindi even if not select it from 'Language Bar'
|
|
|
|
|
Can u give more detail about how currently ur changing fonts of label & grids ? so i can suggest u answer.
|
|
|
|
|
I am having trouble on calling a function on my code behind.. here's my code..
MPEConfirm = New AjaxControlToolkit.ModalPopupExtender<br />
Dim popup As LiteralControl = New LiteralControl<br />
PnlConfirm = New Panel<br />
btnConOK = New Button<br />
btnConCancel = New Button<br />
'asp panel for modal popup<br />
With PnlConfirm<br />
.ID = "PnlConfirm"<br />
.CssClass = "modalPopup"<br />
.Attributes.Add("Style", "display: none")<br />
.Height = 100<br />
.Width = 233<br />
End With<br />
<br />
With btnConOK<br />
.ID = "btnConOK"<br />
.CssClass = "Buttons"<br />
.Text = "Yes"<br />
.Width = 50<br />
End With<br />
arrbtnConOK(l) = btnConOK<br />
AddHandler btnConOK.Click, AddressOf btnConOK_Click<br />
<br />
With btnConCancel<br />
.ID = "btnConCancel"<br />
.CssClass = "Buttons"<br />
.Text = "No"<br />
.Width = 50<br />
End With<br />
AddHandler btnConCancel.Click, AddressOf btnConCancel_Click<br />
<br />
popup = New LiteralControl("<br /><div align='center'>")<br />
PnlConfirm.Controls.Add(popup)<br />
'popup = New LiteralControl("<span style='font-size:10px;color:white;font-family:Verdana'>Are you sure you want to continue without saving?</span><br /><br />")<br />
'PnlConfirm.Controls.Add(popup)<br />
popup = New LiteralControl("<span style='font-size:10px;color:white;font-family:Verdana'>Do you want to save the changes that you made?</span><br /><br />")<br />
PnlConfirm.Controls.Add(popup)<br />
PnlConfirm.Controls.Add(btnConOK)<br />
popup = New LiteralControl(" ")<br />
PnlConfirm.Controls.Add(popup)<br />
PnlConfirm.Controls.Add(btnConCancel)<br />
popup = New LiteralControl("</div>")<br />
PnlConfirm.Controls.Add(popup)<br />
<br />
For l = 0 To dt.Rows.Count - 1<br />
<br />
imgExpand = New ImageButton<br />
With imgExpand<br />
.ID = "imgExpand_" & l<br />
.ImageUrl = "~/Files/images/expand_blue.gif"<br />
.CommandName = l<br />
.CommandArgument = dt.Rows(l)("core_id")<br />
End With<br />
AddHandler imgExpand.Click, AddressOf imgExpand_Click<br />
<br />
'modalpopup extender<br />
With MPEConfirm<br />
.ID = "MPEConfirm" & l<br />
.TargetControlID = "imgExpand_" & l<br />
.PopupControlID = "PnlConfirm"<br />
.BackgroundCssClass = "modalBackground"<br />
'.OkControlID = "btnConOK"<br />
'.CancelControlID = "btnConCancel"<br />
End With<br />
arrMPEConfirm(l) = MPEConfirm<br />
PnlCoreComp.Controls.Add(imgExpand)<br />
PnlCoreComp.Controls.Add(arrMPEConfirm(l))<br />
Next<br />
PnlCoreComp.Controls.Add(PnlConfirm)
i disabled okControlID and CancelControlID to be able to disregard the client script and the button would go directly to the function on my code behind.. my problem is, my function won't trigger even if i added event handler on my button.. any idea? 
yours truly,
hyperalergelo
modified on Tuesday, February 3, 2009 12:42 AM
|
|
|
|
|
Have you tried defining your UI in the aspx instead of through code ?
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
I've only tried making a single modalpopup on my ui and it's working properly.. the same logic in using it on my code behind.. can't locate where the problem is..
yours truly,
hyperalergelo
|
|
|
|
|
You should be asking this in the ASP.NET forum.
|
|
|
|
|
i've already tried.. just trying to post here maybe someone here knows the answer.. my code is still in vb
yours truly,
hyperalergelo
modified on Tuesday, February 3, 2009 3:53 AM
|
|
|
|
|
Is it possible to get a DataGridView to automatically size itself based on its contents?
CodingYoshi
Visual Basic is for basic people, C# is for sharp people. Farid Tarin '07
|
|
|
|
|
Just set the AutoSizeColumnsMode = AllCellsExceptHeader
Jm
www.menendezpoo.com
|
|
|
|
|
I'm trying to figure out a way to change the default printer in VB.NET. I remember in VB6 changing registry settings in order to change the default window printer. I was hoping there was an easier way to do it in VB.NET. Any info would be greatly appreciated.
modified on Monday, February 2, 2009 3:13 PM
|
|
|
|
|
Use WMI
Public Shared Function SetDefaultPrinter(ByVal PrinterName As String) As Boolean
'Declare WMI Variables
Dim MgmtObject As ManagementObject
Dim MgmtCollection As ManagementObjectCollection
Dim MgmtSearcher As ManagementObjectSearcher
Dim ReturnBoolean As Boolean = False
'Perform the search for printers and return the listing as a collection
MgmtSearcher = New ManagementObjectSearcher("Select * from Win32_Printer")
MgmtCollection = MgmtSearcher.Get
'Enumerate Objects To Find Printer
For Each MgmtObject In MgmtCollection
'Look for a match
If MgmtObject.Item("name").ToString = PrinterName Then
'Set Default Printer
Dim TempObject() As Object 'Temporary Object for InvokeMethod. Holds no purpose.
MgmtObject.InvokeMethod("SetDefaultPrinter", TempObject)
'Set Success Value and Exit For..Next Loop
ReturnBoolean = True
Exit For
End If
Next
'Return Success Value
Return ReturnBoolean
End Function
|
|
|
|
|
Actually I just go it but thanks anyways. However it still didn't correct the actually problem I was having. I'm trying to print Excel files to PDFs. Since my company won't but Adobe Acrobat to get the Adobe PDF printer I went and downloaded the CutePDF Writer to try. Now if I open up an Excel file and print it to the CutePDF it works fine. The PDFs work and are formatted correctly. However when I try to print Excel files to this printer from my code the generates the PDF files with the correct file name, however all the files are 0 KB and therefore won't open. Originally I just tried to have Excel print to that printer, now I've tried change the default printer to the CutePDF before I begin any printing, and I've also tried to leave a 10 second delay between printing to give enough time for the printer to finish, however in all these circumstances the PDFs are always 0 KB. This is really frustrating and is the only thing holding up the deployment of the program. Any ideas would be greatly appreciated.
|
|
|
|
|
Ok, just for future reference, try not to delete your question even if you found the solution. People are sometimes directed to search the forums for questions that can be common, and a better step would be (if you found a solution to your own problem) is to post your solution so others can view it.
|
|
|
|
|
Sorry about that...I put it back...and thanks again.
|
|
|
|
|
Hello All,
This is my First Message. I am writing code using which user can do mailmerge in Open Office.The code is in Vb.Net.
I am facing Error "{"com.sun.star.sdbc.SQLException: "}".
The Code is as shown below:
Public Sub OpenOfficeMail(ByVal StrFilter As String)
Dim oSM ''Root object for accessing OpenOffice from VB
Dim oDesk, oDoc As Object ''First objects from the API
Dim arg(-1)
''Instanciate OOo : this line is mandatory with VB for OOo API
oSM = CreateObject("com.sun.star.ServiceManager")
''Create the first and most important service
oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
''Create a new doc
oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg)
''Close the doc
oDoc.Close(True)
oDoc = Nothing
''Open an existing doc (pay attention to the syntax for first argument)
oDoc = oDesk.loadComponentFromURL("file:///C:\Users\Savan\Documents\1.odt", "_blank", 0, arg)
Dim t_OOo As Type
t_OOo = Type.GetTypeFromProgID("com.sun.star.ServiceManager")
Dim objServiceManager As New Object
objServiceManager = System.Activator.CreateInstance(t_OOo)
Dim oMailMerge As New Object
oMailMerge = t_OOo.InvokeMember("createInstance", Reflection.BindingFlags.InvokeMethod, Nothing, _
objServiceManager, New [Object]() {"com.sun.star.text.MailMerge"}) 'com.sun.star.text.MailMerge"})
oMailMerge.DocumentURL = "file:///C:\Users\Savan\Documents\1.odt"
oMailMerge.DataSourceName = CreateSource(StrFilter)''Calling Function to return Txt file which will be used as datasource
oMailMerge.CommandType = 0
oMailMerge.Command = "file:///C:\Mail.txt"
oMailMerge.OutputType = 2
oMailMerge.execute(New [Object]() {}) '"com.sun.star.text.MailMerge"})----->Here i am gettting error.
End Sub
It is very Urgent Issue..So any help would be very appriciated.
Thanks,
Savan
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
