VBA - Visual Basic 2008

[Uzvern]

Uzvern, вы там винду новую пишете?


Цитата Uzvern:



Как программно изменить свойства папки (сменить значок) ?

VBA - Visual Basic 2008

один из вариантов:

desktop.ini в папке:

[.ShellClassInfo]

IconFile=%SystemRoot%\system32\SHELL32.dll

IconIndex=22

Примерно так. Создать файл и запихать туда нужные строки.



А вообще посмотрите функции Shell, там должно это быть.


Цитата:



The following example shows how to set a window icon. (Window.Icon Property)

// Set an icon using code

Uri iconUri = new Uri("pack://application:,,,/WPFIcon2.ico", UriKind.RelativeOrAbsolute);

this.Icon = BitmapFrame.Create(iconUri);

[Delirium]

Ну вот написал код, но чет он не пашет (Все создает, ноиконку не меняет) :



Код:

Код: Выделить всё

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Do While IO.Directory.Exists("C:\" & i)
            i += 1
        Loop
        MkDir("C:\" & i)
        Try
            If IO.File.Exists("C:\" & i & "\desktop.ini") Then
                IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.Normal)
            End If
            Dim File As Integer = FreeFile()
            FileOpen(File, "C:\" & i & "\desktop.ini", OpenMode.Output)
            PrintLine(File, "[.ShellClassInfo]")
            PrintLine(File, "IconFile=%SystemRoot%\system32\SHELL32.dll")
            PrintLine(File, "IconIndex=25")
            FileClose(File)
            IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.System)
            IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.Hidden)
            Shell("explorer /select, C:\" & i, AppWinStyle.NormalFocus)
            End
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End
        End Try
    End Sub
End Class

[Uzvern]

ух. жутко, но попытаюсь разобрать. Спс, а случайно не знаешь как загрузить код станицы без WebBrowser?

[Delirium]

ммм..... ну только если так попробовать:



Код:

Код: Выделить всё

WebClient myClient = new WebClient();
myClient.Credentials = CredentialCache.DefaultCredentials;
Stream response = myClient.OpenRead("http://ru.uefa.com");
byte[] bytes = new byte[10000];
int n = response.Read(bytes,0,3000);
int br = 0;
while (n>0)
{
br+=n;
n = response.Read(bytes,br+1,3000);
}
String s = Encoding.ASCII.GetString(bytes);
В строке s и будет HTML код документа

Взято

отсюда

Поищи заодно на rsdn.ru по тексту "HTML-код страницы в C# коде".

[Uzvern]

чет я немогу последний код из С в VB переделать...

[Admiral]

Uzvern, написания своего ВебКомпонента, равносильно написании своего ВебБраузера. Принцип построения проще всего узнать просмотрев какой-нибудь ОпенСоурсе браузере, что несколько отводить от идеологии .NET где всё под рукой и готово.



Как не отображать (или сразу не грузить) картинки можно посмотреть здесь

http://forums.microsoft.com/msdn/Sho...13729&SiteID=1

, а так же здесь (там правда C#)

http://geekswithblogs.net/dotnetnoma...29/119065.aspx

. Стоит проконтролировать что в странице действительно вырезаются картинки на лету (даже не грузятся), а не после загрузки когда они уже накрутили трафик и по просто не отображаются.

[Uzvern]

Как программно изменить свойства папки (сменить значок, тип файлов) ?

[Uzvern]

Ну вот написал код, но чет он не пашет (Все создает, ноиконку не меняет) :



Код:

Код: Выделить всё

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Do While IO.Directory.Exists("C:\" & i)
            i += 1
        Loop
        MkDir("C:\" & i)
        Try
            If IO.File.Exists("C:\" & i & "\desktop.ini") Then
                IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.Normal)
            End If
            Dim File As Integer = FreeFile()
            FileOpen(File, "C:\" & i & "\desktop.ini", OpenMode.Output)
            PrintLine(File, "[.ShellClassInfo]")
            PrintLine(File, "IconFile=%SystemRoot%\system32\SHELL32.dll")
            PrintLine(File, "IconIndex=25")
            FileClose(File)
            IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.System)
            IO.File.SetAttributes("C:\" & i & "\desktop.ini", IO.FileAttributes.Hidden)
            Shell("explorer /select, C:\" & i, AppWinStyle.NormalFocus)
            End
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End
        End Try
    End Sub
End Class

[Delirium]

Uzvern, я этот скрин ещё в предыдущем посте смотрел, и прикинул что это организовывается аналогично тому, как инсталлятор Висты/2008 рисуется в ХР/2003

Теория - Использование интерфейс Windows Vista вне самой Висты

. Может в одном из ресурсов данной программы и лежит рамка этого окна.



Приблизить к такому эффекту в новом проекте может следующий код



Код:

Код: Выделить всё

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowIcon = False
        Me.Text = ""
        Me.MaximizeBox = False
        Me.MinimizeBox = False
    End Sub

на ХР этот код даёт такой эффект.

читать дальше »

[Uzvern]

Как можно изменить размеры верхней (главной) строки программы (Где название, иконка, кнопки закрытия/максимизации/минимизации) ?

Скрин

Например вот с такого



до такого, если вообще возможно...