Hola queria saber como puedo en Vb.net leer los datos binarios de un fichero
Quiero leer los 0 y los 1 directamente
Un saludo
Quiero leer los 0 y los 1 directamente
Un saludo
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú Public Shared Function GetIcon(ByVal path As String, ByVal tipo As TipoIcon) As System.Drawing.Icon
Dim hImgSmall As IntPtr 'The handle to the system image list.
Dim myIcon As System.Drawing.Icon
Dim hImgLarge As IntPtr 'The handle to the system image list.
Dim fName As String 'The file name to get the icon from.
Dim shinfo As SHFILEINFO
shinfo = New SHFILEINFO()
shinfo.szDisplayName = New String(Chr(0), 260)
shinfo.szTypeName = New String(Chr(0), 80)
fName = path
'Use this to get the small icon.
Select Case tipo
Case TipoIcon.Small
hImgSmall = SHGetFileInfo(fName, 0, shinfo, Marshal.SizeOf(shinfo), _
SHGFI_ICON Or SHGFI_SMALLICON)
Case TipoIcon.Large
hImgLarge = SHGetFileInfo(fName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_LARGEICON)
End Select
' Try
myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
' Catch ex As Exception
' 'Erorr
'End Try
Return myIcon
End Function
Dim ImageL As New ImageList
Dim dirsF() As FileInfo = New DirectoryInfo("C:\").GetFiles
ListI.LargeImageList = ImageL
For Each Dir As FileInfo In dirsF
Dim Nod As New ListViewItem
Nod.Text = Dir.Name
ImageL.Images.Add(InformacíonSecurity.GetIcon(Dir.FullName, InformacíonSecurity.TipoIcon.Small))
Nod.ImageIndex = ImageL.Images.Count - 1
ListI.Items.Add(Nod)
Next
for i = 0 to 5
shellexecuteEx parametros(i) ,,......
next i