ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Эпический косяк с WordBasic
14 сообщений из 14, страница 1 из 1
Эпический косяк с WordBasic
    #37201400
kalamfur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kalamfur
Гость
Есть вот такой код:
 
Заготовка
Код: 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
06.04.2011, 00:12
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37204223
kalamfur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kalamfur
Гость
Никто не в курсе?
...
Рейтинг: 0 / 0
07.04.2011, 11:39
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37204234
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Что мешает записать макрос в ворде и посмотреть, какие методы отвечают за позиционирование курсора?
...
Рейтинг: 0 / 0
07.04.2011, 11:45
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37204248
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
kalamfur, куда надо курсор поставить?
...
Рейтинг: 0 / 0
07.04.2011, 11:53
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37204446
kalamfur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kalamfur
Гость
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, 13:08
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37204823
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Не понял, если чесно, как при помощт макроса просмотреть методы позиционирования.Изменить позицию курсора же.
...
Рейтинг: 0 / 0
07.04.2011, 15:02
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37204843
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
kalamfur,
требуется этот код как-то подкорректировать
Это ВБА? Если да приложите файл пжл
...
Рейтинг: 0 / 0
07.04.2011, 15:06
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37205093
kalamfur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kalamfur
Гость
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
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37205094
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
kalamfurкосяк в том что при промотке документа курсор остается на его первой странице, и при Mouseup промотки как ни бывало.Промотке чем? колесом мыша, что ли?
Если да - то вот я лично ни разу не удивился...
...
Рейтинг: 0 / 0
07.04.2011, 16:22
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37205104
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
да нет, там надо select внутри параграфа сделать, посмотри объектную модель ворда
...
Рейтинг: 0 / 0
07.04.2011, 16:25
| Ответить | Цитировать | Написать  
Эпический косяк с WordBasic
    #37205179
kalamfur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kalamfur
Гость
Konst_Oneда нет, там надо select внутри параграфа сделать, посмотри объектную модель ворда

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

Т.е.

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

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

кажется?

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

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

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

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


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