|
Dear all,
Anyone can hide the tabpages in tabcotrol
Don't tell follows
Me.TabControl1.TabPages.Item(0).Visible = False
This is not working
And also can you draw line on tabpages
rugfy
|
|
|
|
|
On my main form is a series of text controls which are bound to a datasource (Ds1). Also on the form is a datagrid which is bound to a different datasource (Ds2). All works well.
Ds1 and Ds2 look to the same information Table (T1) and contain the exact same records. Ds2 differs, however, in that it Ds2 looks to a joined query of T1 and another Table (T2).
Question:
If I select a row from the datagrid, I want the appropriate record to appear on the main form. How can I do this?
If both the Text boxes and the Datagrid had the same underlying recordsource, the desired result would automatically occur. However, since I have two datasources, it does not happen automatically
In my code, I have successfully identified the unique counter field in T1. All I need to do is filter Ds1 or somehow move to the appropriate record on the main form.
Would I employ a data filter (e.g. Dataview)? There is NO need to clear and then re-fill Ds1 because the record is already part of the recordset. I just want to move to it on the main form.
You help and advice is greatly appreciated.
Pat
|
|
|
|
|
Hello
Have control over in the currencymanager object ,If you have give the both datasource as ds1 ,means you can work with two data source in that case u can give on click event of grid
CurrencyManager.Position = DataGrid.CureentRowIndex
Otherwise you have to explicitely assign get the Bindingcontext of Datagrid which is returned CurrencyManager/BindingManagerBase And you can control it by Move through records
Like
currencyManager.Position =0 //First
currencyManager.Position -=1 //Previous
currencyManager.Position +=1 // Next
currencyManager.Position = CurrencyManager.count - 1 //Last
Befor that You have to get the object of Bindingcontext from datagrid
Dim Cm as CurrencyManager
cm= BindingContext(Datagrid.Datasource,DataGrid.DataMember)
Now you can give that in the Mouseup by getting the hittestinfo Or Click events
private sub myDataGrid_MouseUp(byval sender as object, byval args AsMouseEventArgs )
dim hitTestInfo as DataGrid.HitTestInfo
hitTestInfo = me.myDataGrid.HitTest(args.X, args.Y)
if(hitTestInfo.Type=DataGrid.HitTestType.ColumnHeader)
// Get the CurrencyManager for the bound DataTable
CurrencyManager Cm = me.myDataGrid.BindingContext(Datagrid.DtaSource,Datagrid.Datamember)
// Get the current DataRowView
DataRowView currentRowView = (DataRowView)dataTableCurrencyManager.Current
I hope this helps you
|
|
|
|
|
hai...
everyone who know how to convert the File to String?
Actually, my idea is doing this to transfer the file to another computer. So, i convert the file (.text file or .exe file) to string and then send to another pc.
After this, the pc will received this string then convert the string to File...
So, i build up the protocol already but i dont know how to convert the file to string and the convert back from string to file.... anyone can help me.....
thanks....
|
|
|
|
|
This might be a better way. Ignore the bits about saving it to the database. It converts a file to a Byte Array. I am currently saving pictures to a database in this way. It works great.
http://support.microsoft.com/kb/316887[^]
Shawn
|
|
|
|
|
Thanks for ur reply....
Actually i just know the code from BitMapToString, but i dont know how to use this to convert it from FileToString...
So, any suggestion for this function....
Public Function BitmapToString(ByVal sImagePath As String) As String
Try
Dim data As String
Dim ms As MemoryStream = New MemoryStream
Dim bmp As Bitmap = New Bitmap(sImagePath)
' Save as PNG format (IMHO, much better!
// )
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
data = Convert.ToBase64String(ms.ToArray())
Return data
Catch ex As Exception
Return String.Empty
End Try
End Function
|
|
|
|
|
You might want to try some of the code I have in a project I posted on this board about 2 weeks ago. It is using a MySql file but I think the streamreader code might work.
http://www.codeproject.com/useritems/WavfilesInDatabases.asp
Dim b() As Byte
Try
b = DBSelectCmd.ExecuteScalar()
Dim K As Long
K = UBound(b)
Dim WriteFs As New FileStream(strOutFile, FileMode.Create, FileAccess.Write)
WriteFs.Write(b, 0, K)
WriteFs.Close()
MessageBox.Show("Wav file has been retrieved and written to application folder")
Catch oExcept As Exception
MessageBox.Show(oExcept.Message)
End Try
If this doesn't work, I found some other similar code in MSDN that I think might work but I don't have it on this computer and I will have to wait until Monday to get it from my work computer.
Let me know if this either does or doesn't work.
|
|
|
|
|
 hai.. thanks for ur reply...
Actually, i do many testing in filestream, but the results are just can convert the file(.txt file) to string.
my friend told to me that this is can't to convert the (.exe file) to string.
Is true?
|
|
|
|
|
See if this code might work. I don't know if you can "rebuild" data from a table back into a .exe, but I don't know of any reason why you shouldn't. If you FTP a file it is basically being "read" in binary, sent as a binary stream of data and then basically rebuild on the receiving end.
Anyway check this out.
Do While fdRead.Read()
'strTmp = fdRead.GetString(0)
strProgramFile = fdRead.GetString(0)
strOtherData = fdRead.GetString(1)
strOtherData2 = fdRead.GetString(2)
' Create a file to hold the output.
strFileOut = "progrname.exe" 'Me.TextBox2.Text & ".wav"
fs = New FileStream(strFileOut, FileMode.OpenOrCreate, FileAccess.Write)
bw = New BinaryWriter(fs)
startIndex = 0
' Read bytes into outbyte() and retain the number of bytes returned.
retval = fdRead.GetBytes(1, startIndex, outbyte, 0, bufferSize)
' Continue reading and writing while there are bytes beyond the size of the buffer.
Do While retval = bufferSize
bw.Write(outbyte)
bw.Flush()
' Reposition the start index to the end of the last buffer and fill the buffer.
startIndex += bufferSize
retval = fdRead.GetBytes(1, startIndex, outbyte, 0, bufferSize)
Loop
' Write the remaining buffer.
Try
bw.Write(outbyte, 0, retval - 1)
Catch
End Try
bw.Flush()
' Close the output file.
bw.Close()
fs.Close()
Loop
fdRead.Close()
Let me know if this works or not.
|
|
|
|
|
hai,
i have set my program as a .msi window installed file, when i type
the following command in command prompt
msiexec /i xxxxxxx.msi /qn
the .msi file will ran in silent install mode.
So, the problem is i want to start the silent install mode without manually
key in the command like above one.
how to when we start install and then will auto run silent install command....
Thanks....;P
|
|
|
|
|
You must use the command line parameters to get the silent mode install. You can either do this from a .CMD batch file or shell launch the command from another program you create for the purpose, such as your own Setup.EXE.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hello ,
I am writing an application that gets a password and a user name from the user I need to send these information to a web site to check wheter these information is correct or not then the web site should respond to my application with the result.
How can I send these information to the web site and how can I get the result from it.
|
|
|
|
|
Hello Mohsen,
your question is way general. as we don't know are you using web services or simple aspx mechanism. or is your application a windows app that refrences a web service.
I suggest you try the TaskVision sample from the MSDN or download it from http://www.windowsforms.com/[^].
It should give you a great insight on how to use webservices to get what you want done.
Cheers
It is Illogical to define an inventor by his invention
|
|
|
|
|
Hi, got a problem that no search seems to help with. I have a PictureBox control (VB.NET) on a form (181*136 in size) in which I am loading selected pictures from an OpenFileDialog.
The majority of the pictures are going to be the average 3*4 aspect ratio but there are going to be some that are either longer or taller than this.
The Stretch Property is great in the fact that it sizes down the pictures to fit, but the ones that are not to the 3*4 aspect ratio are too stretched.
How can I keep the aspect ratio of a picture and at the same time get it to fit into the PictureBox control?
Many thanks for the help.
Shawn
|
|
|
|
|
Hi, I need to build an application in VB.Net which select the font from one folder in windows exploere and install it to the font directory. I have an idea but I don't know how to start from it. Can any one give me the clue on how to do that???
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
This is some code I found on the internet and it worked fine for me.
Module Main
#Region "InstallFont"
Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" _
(ByVal lpszSection As String, ByVal lpszKeyName As String, _
ByVal lpszString As String) As Integer
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
ByVal lParam As Integer) As Integer
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" _
(ByVal lpFileName As String) As Integer
Const WM_FONTCHANGE As Integer = &H1D
Const HWND_BROADCAST As Integer = &HFFFF
Private Function InstallFontIfNeeded() As Boolean
'
' Check for font
'
Dim bFound As Boolean
For Each ff As FontFamily In FontFamily.Families
If ff.Name = "barcoding" Then bFound = True
Next
If Not bFound Then
' If bFound Then
Dim intReturn As Integer
'
' Copy font to fonts folder
'
Dim fi As New System.IO.FileInfo(System.Reflection.Assembly.GetEntryAssembly().Location)
Dim strWindows As String = Environment.GetEnvironmentVariable("WINDIR")
Dim strPath As String = String.Format("{0}\barcoding.ttf", fi.DirectoryName)
Dim strFont As String = String.Format("{0}\Fonts\barcoding.ttf", strWindows)
System.IO.File.Copy(strPath, strFont, True)
'
'Add font
'
intReturn = AddFontResource(strFont)
Trace.WriteLine(String.Format("Add Font {0}", intReturn))
'
' Tell operating system font installed
'
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
'
' Store the new font settings
'
intReturn = WriteProfileString("fonts", "Barcoding (TrueType)", "barcoding.ttf")
Trace.WriteLine(String.Format("Write profile {0}", intReturn))
End If
Return bFound
End Function
#End Region
Public Sub main()
If InstallFontIfNeeded() Then
Application.Run(New Form1)
Else
Process.Start("barcode.exe")
End If
End Sub
End Module
Let me know if it works for you or not.
|
|
|
|
|
Thank you very much for your comment. I will try to do it and let you know if it is working or not. 
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
I am working on a project EL-SOL Solar Energy Project to control the application panel by Stepper Motor through Parallel Port on my PC using Visual Basic 6.0.
Please help me to move the motor forwared reverse and angular direction.
How it can be possible.
Shaikh Zia Ullah alias SHAIKHOO
|
|
|
|
|
Shaikhoo wrote:
Please help me to move the motor forwared reverse and angular direction.
Moving the motor is a very hardware specific issue, with little to do with VB. You'll have much better luck if you search Yahoo or Google for specific projects. Try searching for "VB6 stepper motor parallel".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
may be your question was unclear.
did you mean how to work with parallel port in vb?
or how to move the motor?
if you want to work with parallel port? so I can help you...
please reply or contact me on my email.
OmarMallat
|
|
|
|
|
OmarMallat wrote:
may be your question was unclear
That's because I DIDN'T ASK ONE! 
I know exactly what he's talking about. It can be done, but Code Project is not the proper forum for such a project. There are pitfalls that must be considered outside the real of programming, such as current draw that could exceed the limits of the port supplying the power...
Next time, check the message that your replying to. This is the second time you've posted an answer to the wrong person. Now, because you replied to my post, the person that is actually looking for an answer will NOT get an email stating that you replied to HIS POST.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm so sorry, this is the first time I use this forum. the 2 reply I wrote, was at the same time. I didn't know that the I should reply to the first person who ask the question.
also i'm so sorry.
please don't be angree
 
OmarMallat
|
|
|
|
|
I have to move stepper motor in all direction through my PC which is connected through the parallel port. And I have to do it by using VB6
Zia Ullah
|
|
|
|
|
I need to move stepper motor through parallel port attached to my PC in VB6 application.
|
|
|
|
|
hello,
is it possibile to make a peer to peer application on pocket pc? if yes, is there any useful links or code?
Thanks in Advance
Mahmoud Manasrah
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
