Visual Basic 6.0 - FileCopy информация

Hello, Vladimir!

Skrobov on 29 Aug 04 20:59:27:






Я имел в виду, что скорее всего, операции работы с файлами сами проверяют их
целостность, и если файл копируется неправильно, удаляют его совсем. Вроде
бы так.
* Origin: And then I got mad. This was no time for fun. (2:5080/1003.16)


Hello, Vladimir!







В случае VERIFY ON или-как-там-его, при неверно лёгшем на дискету байтике
таки должна возникнуть ошибка.
* Origin: I do NOT wish to fall! (2:5080/1003.16)


Hello, Sergei!








Имхо она сама там появится, если кодовая страница по умолчанию - арабская
(1256)
Одновременно пропадёт поддержка кириллицы :-)

Может, только Font.Charset у всех объектов потребуется поменять на
ARABIC_CHARSET (178)


Делается само



А также в любой NT-based, когда арабский язык выбран в качестве основного.


Как обычно - в виде 8-битных символов в арабской кодировке.
Hапример, фраза "Аллах акбар" (первое что пришло в голову) запишется как
"Зббе ЗЯИС" (C7 E1 E1 E5 20 C7 DF C8 D1)





Ставишь галочку у "Арабский", жмёшь "Задать умолчание", и задаёшь его как
язык по умолчанию.
После этого можешь в "Языки и раскладки" добавить арабскую раскладку.
* Origin: ...Fuddled wuddled fox in socks, sir! (2:5080/1003.16)





Newsgroups: fido7.ru.visual.basic
Sent: Sunday, August 29, 2004 9:31 AM
Subject: Re: Арабский язык








М-да? Допустим араб пришлет текст в доке Word'a,
как его конвертануть в эти 8-бит и обратно?
Еще понадобится выключить текст в правый край в контролах.

А чтобы англ. интерфейс сохранился надо что-то менять?
Англ. вроде во всех сл. должен правильно показываться? И в арабской винде?
А работать это все будет только под NT4 и выше?
А под 95/98 не будет? Эти винды еще используются в арабских странах?

А еще, интересно арабские слова и фразы в среднем длиннее русских?

Сергей.


* Origin: Demos online service (2:5020/400)


Hello, Aleksej!









Зачем Сергею юникод? Hяп ему не требуется одновременно отображать и русский,
и арабский текст. Имхо вполне можно обойтись ANSI-средствами.

* Origin: Their hair grows fast. So fast, they say... (2:5080/1003.16)


Hello, Aleksandr!

Skrobov on 29 Aug 04 10:02:32:











Держи. Линия таскается за концы и целиком.

=========Beginning of the citation==============
Option Explicit
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single
Dim x0 As Single, y0 As Single
Dim Mode As Integer

Private Sub Form_Load()
DrawWidth = 5
ScaleMode = vbPixels
x1 = 100: y1 = 100
x2 = 200: y2 = 200
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim a As Single, b As Single, c As Single
If (X - x1) ^ 2 + (Y - y1) ^ 2 <= DrawWidth ^ 2 Then
Mode = 1
ElseIf (X - x2) ^ 2 + (Y - y2) ^ 2 <= DrawWidth ^ 2 Then
Mode = 2
Else
x0 = X - x1: y0 = Y - y1
If (Sgn(x0) = Sgn(x2 - x1)) And (Sgn(y0) = Sgn(y2 - y1)) Then
If (Abs(x0) < Abs(x2 - x1)) And (Abs(y0) < Abs(y2 - y1)) Then
a = y1 - y2: b = x2 - x1: c = x1 * y2 - x2 * y1
If Abs(a * X + b * Y + c) <= DrawWidth * Sqr((a ^ 2 + b ^ 2))
Then
Mode = 3
End If
End If
End If
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Select Case Mode
Case 1:
x1 = X: y1 = Y: Refresh
Case 2:
x2 = X: y2 = Y: Refresh
Case 3:
x2 = (x2 - x1) + (X - x0)
y2 = (y2 - y1) + (Y - y0)
x1 = X - x0: y1 = Y - y0
Refresh
End Select
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
Mode = 0
End Sub

Private Sub Form_Paint()
Line (x1, y1)-(x2, y2)
End Sub

=========The end of the citation================
* Origin: And he put them away. Then he said, "That is that." (2:5080/1003.16)


Hello, Sergei!

Skrobov on 29 Aug 04 12:10:38:








Открывается диалог "Преобразование файла"




=========Beginning of the citation==============
Property RightToLeft As Boolean
Determines text display direction and control visual appearance on a
bidirectional system.
=========The end of the citation================




Да, афаик английский интерфейс в любой винде одинаково смотрится.



В арабской версии Win9x - всё должно работать, если только ты не перейдёшь
на юникод :-)
Юникодные контролы, действительно, доступны только в WinNT.


Короче - там ведь гласные не пишутся.
* Origin: And all I could say was, "Now what, Cat? NOW what?" (2:5080/1003.16)




Макросы или шаблон с программами VBA можно
подписать своей самодельной цифровой подписью,
которую можно экспортировать в файл с расширением *.cer.
Т.е. сделать свой сертификат. Можно ли его как-то автоматом
установить в систему юзера, чтобы избегнуть объяснения ему
как и чего с ним делать? Hу или полуавтоматом?
Мол щас тебя спросят, так ты скажи "да".
Это нужно чтобы упростить установку ему моего шаблона с макросами.

Сергей.
* Origin: Demos online service (2:5020/400)





Здравствуй, Sergey !







Т. е. если будет нарушена ТОЛЬКО контрольная сумма (байтик там какой-нибудь на дискету неверно ляжет) то поймать эту ошибку нечем?

Всего тебе наилучшего, Sergey!
_ Владимир. _



* Origin: Privat (2:5080/1003 [@] fidonet)





Здравствуй, A. Skrobov !







Тогда уж по, крайней мере, хоть FileLen. Хотя и это не поможет в случае нарушения контрольной суммы :-(

Всего тебе наилучшего, A. Skrobov!
_ Владимир. _



* Origin: Privat (2:5080/1003 [@] fidonet)