Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Эпический косяк с WordBasic / 14 сообщений из 14, страница 1 из 1
06.04.2011, 00:12
    #37201400
kalamfur
kalamfur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
Есть вот такой код:
 
Заготовка
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Private Sub click_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 
    If Index =  0  Then 
        Timer1.Enabled = True 
        OLE1.Enabled = True 
    End If 
    If Index =  1  Then 
        Timer2.Enabled = True 
        OLE1.Enabled = True 
    End If 
End Sub 

Private Sub click_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Timer1.Enabled = False 
    Timer2.Enabled = False 
    OLE1.Action =  6  
    OLE1.Enabled = False 
End Sub 

Private Sub Form_Load() 
    'OLE1.CreateEmbed "", "WORD.DOCUMENT" 
    OLE1.CreateEmbed "c:/1.doc", "WORD.DOCUMENT" 
End Sub 

Private Sub Timer1_Timer() 
    If OLE1.AppIsRunning Then 
       OLE1.object.Application.WordBasic.Vpage  1  
    Else 
       OLE1.Action =  7  'Activate 
    End If 
End Sub 

Private Sub Timer2_Timer() 
    If OLE1.AppIsRunning Then 
       OLE1.object.Application.WordBasic.Vpage - 1  
    Else 
       OLE1.Action =  7  'Activate 
    End If 
End Sub


И работает он нормально. Но косяк в том что при промотке документа курсор остается на его первой странице, и при Mouseup промотки как ни бывало. вот такой rollback эфект.

Помогите, может там какой setCurPos есть или еще что?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 11:39
    #37204223
kalamfur
kalamfur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
Никто не в курсе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 11:45
    #37204234
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
Что мешает записать макрос в ворде и посмотреть, какие методы отвечают за позиционирование курсора?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 11:53
    #37204248
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
kalamfur, куда надо курсор поставить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 13:08
    #37204446
kalamfur
kalamfur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
AntonariyЧто мешает записать макрос в ворде и посмотреть, какие методы отвечают за позиционирование курсора?
Не понял, если чесно, как при помощт макроса просмотреть методы позиционирования.

Ципихович Эндрюkalamfur, куда надо курсор поставить?

требуется этот код как-то подкорректировать


Код: plaintext
1.
2.
3.
4.
    If OLE1.AppIsRunning Then 
       OLE1.object.Application.WordBasic.Vpage  1  'Тут скорее не Vpage, а что-то связанное с позицией курсора должно быть.
    Else 
       OLE1.Action =  7  'Activate 
    End If

чтобы при

Код: plaintext
1.
    OLE1.Action =  6  
    OLE1.Enabled = False

документ не отматывался в начало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 15:02
    #37204823
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
Не понял, если чесно, как при помощт макроса просмотреть методы позиционирования.Изменить позицию курсора же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 15:06
    #37204843
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
kalamfur,
требуется этот код как-то подкорректировать
Это ВБА? Если да приложите файл пжл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 16:22
    #37205093
kalamfur
kalamfur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
AntonariyИзменить позицию курсора же.

Имею ввиду не курсор мыши, а курсор в тексте.

Это не VBA, это Visual Basic 6.

Полный код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Private Sub click_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 
    If Index =  0  Then 
        Timer1.Enabled = True 
        OLE1.Enabled = True 
    End If 
    If Index =  1  Then 
        Timer2.Enabled = True 
        OLE1.Enabled = True 
    End If 
End Sub 

Private Sub click_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Timer1.Enabled = False 
    Timer2.Enabled = False 
    OLE1.Action =  6  
    OLE1.Enabled = False 
End Sub 

Private Sub Form_Load() 
    'OLE1.CreateEmbed "", "WORD.DOCUMENT" 
    OLE1.CreateEmbed "c:/1.doc", "WORD.DOCUMENT" 
End Sub 

Private Sub Timer1_Timer() 
    If OLE1.AppIsRunning Then 
       OLE1.object.Application.WordBasic.Vpage  1  
    Else 
       OLE1.Action =  7  'Activate 
    End If 
End Sub 

Private Sub Timer2_Timer() 
    If OLE1.AppIsRunning Then 
       OLE1.object.Application.WordBasic.Vpage - 1  
    Else 
       OLE1.Action =  7  'Activate 
    End If 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 16:22
    #37205094
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
kalamfurкосяк в том что при промотке документа курсор остается на его первой странице, и при Mouseup промотки как ни бывало.Промотке чем? колесом мыша, что ли?
Если да - то вот я лично ни разу не удивился...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 16:25
    #37205104
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
да нет, там надо select внутри параграфа сделать, посмотри объектную модель ворда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 16:52
    #37205179
kalamfur
kalamfur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
Konst_Oneда нет, там надо select внутри параграфа сделать, посмотри объектную модель ворда

Так)) кажись оно) word_selection_members

Т.е.

Selection.EndKey Unit:=wdStory, Extend:=wdMove

MoveLeft() , MoveRight(), MoveUp(), MoveDown()

кажется?

Просто пока на работе, нет под рукой Бэйсика проверить..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2011, 17:35
    #37205294
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
kalamfurAntonariyИзменить позицию курсора же.

Имею ввиду не курсор мыши, а курсор в тексте.И я про него же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2011, 16:52
    #37207148
kalamfur
kalamfur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
Чего-то туплю.

Selection.MoveDown Unit:=wdStory, Extend:=wdMove

Вылетает с ошибкой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2011, 17:50
    #37208148
kalamfur
kalamfur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эпический косяк с WordBasic
Либо тут не Selection нужно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Эпический косяк с WordBasic / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 157ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158815]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 16ms
total:  157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]